Holdrio und frohes neues Jahr!
Das funktioniert mit PlanMaker, rev. 503:
Code:
(...)
shading = active_sheet.Range(rg).Shading
shading.Texture = 1
shading.ForegroundPatternColor = background_color
shading.Intensity = 100
unter der Voraussetzung, dass active_sheet und background_color vorher vernünftig zugewiesen wurden.
Lasse ich
shading.Texture = 1 weg, funktioniert der Code immer noch, wenn die Range entweder bereits eine Textur (eine Hintergrundfarbe) hat oder keine hat. Es gibt einen Fehler, wenn einzelne Zellen innerhalb der Range Texturen haben und andere nicht. Stur erst einmal eine Textur zuzuweisen, kann richtig oder ein funktionierender Work-Around sein. Was davon
korrekt ist, kann ich nicht beurteilen.
Anmelden
Registrieren
FAQ
Suche
