Zellinhalt mit Fonts in Textbox
10.12.2005 23:14:00
smashy
hat jemand eine Ahnung wie ich den gesamten Inhalt einer Zelle in eine TextBox bekomme? Das Problem besteht darin, dass ich auch Fontwechsel und möglichst HintergrundFarbe mitkopieren möchte. Bis jetzt kann ich leider nur den Inhalt ohne jede Formatierung kopieren. THX!!
With ActiveSheet.Shapes(intShape)
.TextFrame.Characters.Text = ActiveCell.Value 'Range("A7").Value
.Line.Visible = msoFalse
.Fill.ForeColor.SchemeColor = GetColorIndex
'ActiveCell.Interior.ColorIndex
End With
smashy - in keeping tradition group
http:/kickme.to/smashy