Kleurenpalet automatisch bij openen anders dan default

[conceal]

Hallo,

Als ik mijn Excel open, dan opent deze een standaard kleurenpalet. Ik zou deze default instelling graag wijzigen. Via 'macro opnemen' heb ik de volgende code gevonden:

Private Sub auto_open()

Activeworkbook.colors = = RGB(223, 0, 10)

End sub

Als ik deze macro in mijn 'opstart-Excel' (in Documents and settings\username\application data\enz) opneem, krijg ik echter een foutmelding dat deze een object mist, of een functie met with.
Na wat zoeken heb ik de code aangepast naar:

Private Sub auto_open()
  
    Workbook.Palette.SetColorAt(12) = RGB(223, 0, 10)
    
End Sub

Ook hier krijg ik de foutmelding 'Fout 424 tijdens uitvoering Object vereist'

Weet iemand de code die ik op kan nemen zodat bij het openen van Excel standaard de juiste kleur in mijn palet opgenomen is? Alvast bedankt!

 

[OctaFish]

Je commando is niet helemaal juist: je geeft niet op welke kleur je wilt veranderen.

ActiveWorkbook.Colors(1) = RGB(255, 255, 10)
ActiveWorkbook.Colors(2) = RGB(223, 0, 10)

Werkt bijvoorbeeld wel.

 

[conceal]

Hi Octafish,

Uiteindelijk had het te maken met het feit dat de template die automatisch opent, geen workbook opent. De template bevat alleen macro's. Het kleurenpallet is alleen te wijzigen bij een geopend bestand. De oplossing hierbij was dat ik dus ook automatisch een bestand open en daar de wijzigingen in doe. Dat is dan mijn startpunt.

De volgende code heb ik hiervoor gebruikt:

Private Sub auto_open()
  Set NewBook = Workbooks.Add
    With NewBook
        NewBook.Activate
            .Colors(12) = RGB(223, 0, 10)
        End With
End Sub