mit dem untenstehenden Makro erstelle ich ein Wordarttext und passe den etwas an - funktioniert auch gut; jetzt mein Problem: wie kann ich die Textfarbe ändern (per vba) manuell funktionierts und wie kann ich noch Eigenschaften zuweisen. Ich möchte "Ansichtsverhältnis sperren" und "von Zellposition und -größe unabhängig" zuweisen, aber wie?
Sub textfarbe_im_forum_nachfragen()
objekt = "forumstext"
inhalt = "farbe_ändern"
x = 5
y = 5
g = 12
schrift = "Arial Narrow"
breit = 40
hoch = 20
eff = 16
ActiveSheet.Shapes.AddTextEffect(eff, inhalt, schrift, g, msoFalse, msoFalse, x, y).Select
Selection.Name = objekt
With Selection
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.TextFrame.MarginTop = 0
.ShapeRange.TextFrame.MarginBottom = 0
.ShapeRange.TextFrame.MarginLeft = 0
.ShapeRange.TextFrame.MarginRight = 0
.ShapeRange.TextEffect.PresetShape = msoTextEffectShapePlainText
.ShapeRange.Width = breit
.ShapeRange.Height = hoch
End With
End Sub
Schon mal Danke an Euch ProfisGruß detlef