Aanpassen Arcering Object in VBA

[Masjimo]

In een routine wil ik de arcering voor een balk aanpassen, als ik hem vast zet lukt het zo:

With Selection.ShapeRange.Fill
.Patterned msoPatternShingle

Nu wil ik de keuze van het patroon door de inhoud van cel "I5" laten bepalen, door
.Patterned , Sheets("Activiteiten").Range("I5")

Inhoud van cel "I5" is > msoPatternShingle <

Wat doe ik hier fout?

 

[Superzeeuw]

Begin eerst eens met het posten van een voorbeeld bestand.

 

[Masjimo]

Aanpassen arcering

Hierbij een kaal gemaakt voorbeeld om het probleem helder te houden.

Op het tabblad Ctrl Q indrukken: Er verschijnt een gearceerde balk.

Door het wijzigen van de arcering op tabblad Activiteiten wil ik een andere arcering zien verschijnen in de balk...

Hoopelijk zo duidelijk genoeg!

 

[Superzeeuw]

Hetgeen jij wil kan wel maar dan moet je niet de benaming ingeven maar het inde nummer van het patroon dat je wenst.

zie in bijgevoegd programma en verander het getal in cel A5 maar eens.

 

[Masjimo]

Hetgeen jij wil kan wel maar dan moet je niet de benaming ingeven maar het inde nummer van het patroon dat je wenst.

zie in bijgevoegd programma en verander het getal in cel A5 maar eens.

Bedankt, dat geeft idd het gewenste effect!

Waar kan ik echter de codering met de bijbehorende arcering vinden? Ik zou graag de arcering in een pull-down menu willen kiezen......?

Alvast bedankt!

 

[Superzeeuw]

Kijk eens op de volgende Website

 

[Masjimo]

Kijk eens op de volgende Website

Bedankt voor je waardevolle bijdrage!:thumb:

 

[Superzeeuw]

Wil je de vraag nog op opgelost zetten.