wordart textfarbe ändern, eigenschaften zuweisen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Main() Dim objShape As Shape On Error GoTo Fin Set objShape = ActiveSheet.Shapes.AddTextEffect _ (16, "Test", "Arial Black", 40, msoFalse, msoFalse, 10, 10) With objShape With .TextFrame2.TextRange.Font.Fill .ForeColor.ObjectThemeColor = msoThemeColorAccent1 .Solid End With .Shadow.Type = msoShadow21 .Placement = xlFreeFloating End With Fin: Set objShape = Nothing If Err.Number 0 Then MsgBox "Error: " & _ Err.Number & " " & Err.Description End Sub

Danke und Sorry dem Exelprofi (bin leider erst heute wieder am PC)
ich hab das Makro getestet und leider war nix zu sehen; nach dem ich das Fenster für "Auswahlbereich" aktiviert habe sah ich das ein Rechteck erstellt war aber ohne Inhalt; nach ein paar Experimenten habe ich in deinem Makro zwei Zeilen in der Reihenfolge getauscht und schon hats funktioniert
Option Explicit

Sub Main()
Dim objShape As Shape
On Error GoTo Fin
Set objShape = ActiveSheet.Shapes.AddTextEffect _
(16, "Test", "Arial Black", 40, msoFalse, msoFalse, 10, 10)
With objShape
With .TextFrame2.TextRange.Font.Fill
.Solid'Zeile getauscht
.ForeColor.ObjectThemeColor = msoThemeColorAccent1'Zeile getauscht
End With
.Shadow.Type = msoShadow21
.Placement = xlFreeFloating
End With
Fin:
Set objShape = Nothing
If Err.Number  0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub

auch die Festlegung für "von Zellposition unabhängig" funktioniert super; leider hab ich für "Ansichtsverhältnis sperren" nix gefunden. Kann mir da noch jemand helfen?
Gruß detlef

Beliebteste Forumthreads (12 Monate)

wordart textfarbe ändern, eigenschaften zuweisen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

98 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

wordart textfarbe ändern, eigenschaften zuweisen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

98 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread