怎么改变插入文本框里面字体颜色？

marmot777 · 发表于 2024-7-6 14:28

Sub 文字颜色()
Dim txtBox As Shape
Set txtBox = ActiveSheet.Shapes.AddTextbox( _
      msoTextOrientationHorizontal, _
      Left:=1, Top:=1, Width:=200, Height:=70)
txtBox.TextFrame2.TextRange.Text = "842.5多"
txtBox.TextFrame2.TextRange.Font.Size = 48
With txtBox.Fill
      .ForeColor.RGB = RGB(255, 255, 160)
      .Visible = msoTrue
End With
想改变字体颜色，在这段里面怎么加代码？

xunanming · 发表于 2024-7-6 21:56

Sub 文字颜色()
Dim txtBox As Shape
Set txtBox = ActiveSheet.Shapes.AddTextbox( _
msoTextOrientationHorizontal, _
Left:=1, Top:=1, Width:=200, Height:=70)
With txtBox.TextFrame2.TextRange
.Text = "842.5多"
.Font.Size = 48
<font color="#ff0000">.Font.Fill.ForeColor.RGB = RGB(255, 0, 0) </font>'字体颜色
End With
With txtBox.Fill
.ForeColor.RGB = RGB(255, 255, 160)
.Visible = msoTrue
End With
End Sub

复制代码

这样就可以了

ww87725244 · 发表于 2024-7-6 23:13

RGB(255, 255, 160)
这是颜色代码，具体可以百度

marmot777 · 发表于 2024-7-7 00:51

xunanming 发表于 2024-7-6 21:56
这样就可以了

$F5{@4@_4C~L}TPMN~{U5S42.png$
这段是什么意思？

xunanming · 发表于 2024-7-8 21:36

marmot777 发表于 2024-7-7 00:51
这段是什么意思？

那是论坛评论加字体颜色的,代码中不需要,把<>与其内的内容删掉就可以了.

marmot777 · 发表于 2024-7-8 22:44

xunanming 发表于 2024-7-8 21:36
那是论坛评论加字体颜色的,代码中不需要,把与其内的内容删掉就可以了.

弄好了，谢谢。

marmot777 · 发表于 2024-7-24 00:51

xunanming 发表于 2024-7-6 21:56
这样就可以了

“842.5”这个数据的大小，字体，颜色在单元格里面已经编辑过了，在文本框显示的时候能不能按照单元格里面的样式显示？

morpheus126 · 发表于 2024-7-24 13:12

xunanming 发表于 2024-7-6 21:56
这样就可以了

我还以为文本框可以支持HTML

		自动登录	找回密码
密码			免费注册

怎么改变插入文本框里面字体颜色？

For i = 1 To Range("A1").End(xlDown).Row