一个单元格中有2种不同颜色的文字

Question

我们正在使用vbs for Outlook整理新的标准签名。 一切看起来都不错，但设计希望电话号码看起来像附加的图像。 ＆＃34; O＆＃34;办公室＃在橙色，然后是蓝色的数字，＆＃34; C＆＃34;对于橙色的单元格＃，然后是蓝色的单元格。 我可以把整个细胞变成一种颜色，但我不知道如何做两种颜色。 签名位于一个表中，其中一个单元格中的徽标已合并5行，另一侧有5行。

以下是我的一些代码：

strName = objUser.FullName
strTitle = objUser.Title
strPhone = objUser.telephoneNumber
strMobile = objUser.mobile  
strOffice = "O " 
strCell = "C "

objTable.Cell(3,2).Range.Font.Name = "Lato"
objTable.Cell(3,2).Range.Font.Size = "12"
objTable.Cell(3,2).Range.Text = strOffice & strPhone & "    " & strCell & strMobile

Answer 1

开始录制宏通过在单元格或公式栏中编辑来手动执行。停止宏并进入它以获得所有颜色。我坚持托盘底部的主要颜色。您可能需要根据您选择的颜色跟踪ThemeColor，TintAndShade和ThemeFont。

这应该让你入门

Public Sub AddLogo(r As Range)
    Dim i As Integer
    Dim ColorArray
    ColorArray = Array(-16777024, -16776961, -16727809, -16711681, -11480942, -11489280, -1003520, -4165632, -10477568, -6279056)
    r = "Excel Magic"

    For i = 0 To UBound(ColorArray)
        With r.Characters(Start:=(i + 1), Length:=1).Font
             .Color = ColorArray(i)
        End With
    Next
End Sub

<强>用法：

  

AddLogo objTable.Cell（3,2）