Forums Neueste Beiträge
 

Füllfarbe per Makro zuweisen funktioniert nicht

02/05/2008 - 15:11 von carli_eb | Report spam
Hallo,

ich versuche einem Shape per Makro eine Füllfarbe zuzuweisen. Die
Aufzeichnung gelingt ja spielend leicht, doch wenn ich das Makro dann
anwenden will passiert überhaupt nichts. Liegt das vielleicht daran, dass im
Makrocode ein ItemFromID() steht?
Hier der Makrocode:
Sub Kennzeichnung_frei()
'
' freier Platz = grün
'

Dim UndoScopeID1 As Long
UndoScopeID1 = Application.BeginUndoScope("Füllbereichseigenschaften")

Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject,
visRowFill, visFillForegnd).FormulaU = "THEMEGUARD(RGB(146,208,80))"

Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject,
visRowFill, visFillForegndTrans).FormulaU = "50%"

Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject,
visRowFill, visFillBkgndTrans).FormulaU = "50%"
Application.EndUndoScope UndoScopeID1, True

End Sub

Wie gelingt es, das ich beliebige Shapes per Makro mit einer definierten
Füllfarbe versehen kann?

Vielen Dank für Eure Tipps.

carli_eb
 

Lesen sie die antworten

#1 eLiz
03/05/2008 - 10:51 | Warnen spam
Hallo Carli,

du hast es schon richtig erfasst... momentan verànderst du immer das Shape
mit der ID 4 du musst es auch die aktuelle Auswahl beziehen. Die
bekommst du mit:
Application.ActiveWindow.Selection

Hoffe, dass hilft,
Gruß eLiz


"carli_eb" schrieb:

Hallo,

ich versuche einem Shape per Makro eine Füllfarbe zuzuweisen. Die
Aufzeichnung gelingt ja spielend leicht, doch wenn ich das Makro dann
anwenden will passiert überhaupt nichts. Liegt das vielleicht daran, dass im
Makrocode ein ItemFromID() steht?
Hier der Makrocode:
Sub Kennzeichnung_frei()
'
' freier Platz = grün
'

Dim UndoScopeID1 As Long
UndoScopeID1 = Application.BeginUndoScope("Füllbereichseigenschaften")

Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject,
visRowFill, visFillForegnd).FormulaU = "THEMEGUARD(RGB(146,208,80))"

Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject,
visRowFill, visFillForegndTrans).FormulaU = "50%"

Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject,
visRowFill, visFillBkgndTrans).FormulaU = "50%"
Application.EndUndoScope UndoScopeID1, True

End Sub

Wie gelingt es, das ich beliebige Shapes per Makro mit einer definierten
Füllfarbe versehen kann?

Vielen Dank für Eure Tipps.

carli_eb

Ähnliche fragen