Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Text in Textfeld formatieren
21.12.2014 20:18:52
siegfried
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Textfeld formatieren
21.12.2014 20:37:24
Daniel
Hi
als erstes solltest du dir eine andere Excelversion zulegen.
normalerweise könntest du solche Fragen recht einfach mit Hilfe des Recorders klären, aber die 2007er-Version von Excel zeichnet leider gerade im Grafikbereich nicht, oder nur sehr eingeschränkt auf.
also entweder 2003 oder 2010 oder 2013 verwenden, die 2007 ist murks (ist halt immer so, wenn was neu ist oder tiefgreifend überarbeitet wird, dann ist die erste Version immer fehlerhaft)
bei mir in Excel 2010 gehts so:
.TextFrame2.TextRange.Characters(1, 1).Font.Name = Typ1
.TextFrame2.TextRange.Characters(2, 1).Font.Name = Typ2
wobei die Paramter in Characters für:
1. Startposition der Formatierung
2. Anzahl Zeichen die so formatiert werden
dh wenn deine Zeichenketten länger als ein Zeichen sind, müsstst du hier rechnen:
.TextFrame2.TextRange.Characters(1, Len(Textteil1)).Font.Name = Typ1
.TextFrame2.TextRange.Characters(Len(TextTeil1) + 1, Len(TextTeil2)).Font.Name = Typ2
Gruß Daniel

Anzeige
AW: Text in Textfeld formatieren
21.12.2014 21:57:57
siegfried
Hallo Daniel,
vielen Dank, bei mir klappt es auch.
Gruß
Siegfried

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige