ich möchte Text in einem Textfeld (im Tabellenblatt) unterschiedlich formatieren
(TextTeil1 mit Typ1, TextTeil2 mit Typ3) und komme im Moment nicht so recht weiter.
Bei TextTeil1 handelt es sich um einen Buchstaben, bei TextTeil2 um eine Zahl,
bei Typ handelt es sich um die Schriftart
Typ1 = "Symbol"
Typ2 = "Arial"
Typ3 = "Wingdings"
TextTeil1 = Chr(Zeichen)
TextTeil2 = Chr(Sign)
TextKompakt = TextTeil1 & TextTeil2
With ActiveSheet.Shapes(ShpZähler)
.TextFrame.Characters.Text = TextKompakt
.TextFrame.MarginLeft = 0
.TextFrame.MarginTop = 0
.TextFrame.Characters().Font.Bold = True
.TextFrame.Characters().Font.Size = 12
End With
Wie muss ich vorgehen?
Gruß
Siegfried