Vbscript 一个单元格中有2个不同颜色的文本

我们正在使用vbs for Outlook制作一个新的标准签名。 一切看起来都很好，但设计希望电话号码看起来像附加的图像。橙色的“O”代表办公室，蓝色的数字，橙色的“C”代表单元，蓝色的数字。 我可以让整个细胞变成一种颜色，但我不知道如何做到两种颜色。 签名位于一个表格中，其中一个单元格中有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

---

开始录制宏通过在单元格或公式栏中编辑来手动录制宏。停止宏并进入宏以获取所有颜色。我坚持在托盘底部的主要颜色。根据您选择的颜色，您可能需要跟踪颜色、色调和阴影及其变化

这应该让你开始

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对象表单元格（3,2）