Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Überall BgColor ändern

Forumthread: Überall BgColor ändern

Überall BgColor ändern
29.08.2007 10:04:00
Barsch
Hiho!
Ist es möglich, via Makro, von allen Objekten auf der aktuellen Seite die Hintergrundfarbe zu ändern? Also vor allem auch Textfelder usw, nicht nur Zellen. Es geht nämlich darum, dass ich vorm Drucken alles weiß machen will, damit mans sieht.
lg

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Überall BgColor ändern
29.08.2007 10:56:00
Ingo

Sub objecte_weiß()
Dim oo As OLEObject
For Each oo In ActiveSheet.OLEObjects
oo.Object.BackColor = RGB(255, 255, 255)
Next oo
End Sub


mfG
Ingo Christiansen

AW: Überall BgColor ändern
29.08.2007 12:34:00
Beverly
Hi,
Textfelder und andere Objekte, die als Shape angesprochen werden können, lassen sich auf einen Ritt mit diesem Code weiß einfärben

Sub einfaerben()
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
End Sub


________________________________________

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige