2 verschiedene Farbe Text in einer Zelle

Question

Wir erstellen eine neue Standardsignatur mit VBS für Outlook. Alles sieht gut aus, aber Design möchte, dass die Telefonnummern wie das angehängte Bild aussehen. Das "O" für Büro in Orange und dann die Nummer in Blau, das "C" für die Zelle in Orange und dann die Nummer in Blau. Ich kann die ganze Zelle eine Farbe bekommen, aber ich sehe nicht, wie man 2 Farben macht. Die Signatur befindet sich in einer Tabelle mit dem Logo in einer Zelle, die 5 Zeilen zusammengeführt hat und die andere Seite hat 5 Zeilen.

Hier einige meiner Code:

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

Starten der Aufzeichnung eines Makros es kann manuell durch die Bearbeitung in der Zelle oder der Bearbeitungsleiste. Stoppen Sie das Makro und betreten Sie es, um alle Farben zu erhalten. Ich blieb bei den Hauptfarben auf der Unterseite der Palette. Abhängig von den ausgewählten Farben müssen Sie ThemeColor, TintAndShade und ThemeFont möglicherweise verfolgen.

Dies sollten Sie

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 

Usage erhalten begonnen:

AddLogo objTable.Cell (3,2)