Subscript in Textfeld
09.10.2003 14:38:18
Maximilian
Komm leider nicht auf die Lösung wie ich einen Text (mit tiefgestellten Zeichen) in ein Textfeld samt Formatierung kopieren kann.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objTrans As Shape
Set objTrans = ActiveSheet.Shapes("Translation")
objTrans.TextFrame.Characters.Text = ActiveCell.Value
'Vorgegebener Text
Dim objOrg As Shape
Set objOrg = ActiveSheet.Shapes("Orginal")
objOrg.TextFrame.Characters.Text = Cells(ActiveCell.Row, 2).Value & _
" " & Len(Cells(ActiveCell.Row, 2).Value)
End Sub
Aufgabe: Durch die Auswahl einer Zelle, soll der Inhalt in der zweiten Spalte vergrößert in einem Textfeld dargestellt werden. Natürlich sollten die tiefgestellten Zeichen dem Format korrekt übernommen werden. Die Veränderung der Größe dürfte kein Problem sein, da ich sie auch direkt im Textfeld vornehmen kann.
Vielen Dank im Voraus
Maximilian