VBA script werkt in Doc.dot en niet in Doc.doc

[Karel 1]

Beste allemaal,

sinds kort ben ik begonnen met VBA in word 2003.
Ik heb wel enige ervaring in Excel maar niets in word.

Nu doet zich het volgende voor:
In word 2003 heb ik, in een *.dot file, een combobox met 4 mogelijkheden geplaatst en de mogelijkheden afgevraagd met een " IF- ELSE" constructie.
in de *.dot file werkt alles zo als ik het bedacht heb, maar als ik de *.dot file als nieuw document open, dan werkt het pas als ik naar VBA ga en dan het item een keer run of via F8 er een keer doorheen stap.
hieronder staat de code die ik gebruikt heb.
uiteraard heb ik de toggelbutton ook gedeclareerd.


Private Sub ComboBox2_Change()
ComboBox2.List = Array("C1", "C2", "C3", "C4")
MyArray = ComboBox2.List
If ComboBox2.Value = "C1" Then
ToggleButton3.Picture = LoadPicture("D:\data\C1.jpg")
ElseIf ComboBox2.Value = "C2" Then
ToggleButton3.Picture = LoadPicture("D:\data\C2.jpg")
ElseIf ComboBox2.Value = "C3" Then
ToggleButton3.Picture = LoadPicture("D:\data\C3.jpg")
ElseIf ComboBox2.Value = "C4" Then
ToggleButton3.Picture = LoadPicture("D:\data\C4.jpg")
End If
End Sub

Is er iemand die weet wat ik verkeerd doe of wat ik vergeet?

alvast bedankt voor het antwoord,
Karel 1

 

[snb]

Als je bij de Change-gebeurtenis de keuzelijst opnieuw vult met gegevens, is de eigenschap .Value van de keuzelijst ""

Dit moet voldoende zijn:

Private Sub ComboBox2_Change()
  ToggleButton3.Picture = LoadPicture("D:\data\C"  Combobox2.listindex +1 &".jpg")
End Sub

 

[Karel 1]

Als je bij de Change-gebeurtenis de keuzelijst opnieuw vult met gegevens, is de eigenschap .Value van de keuzelijst ""

Dit moet voldoende zijn:

Private Sub ComboBox2_Change()
  ToggleButton3.Picture = LoadPicture("D:\data\C"  Combobox2.listindex +1 &".jpg")
End Sub

Bedankt voor het snelle antwoord.

Als ik dit toepas, krijg ik de melding "Fout 13 tijden uitvoeren. Typen komen niet met elkaar overeen"

Hoe zorg ik er voor dat de typen wel over een komen?

groetjes en bedankt,
Karel 1

 

[snb]

Door de hulpfunktie van de VBEditor eens wat vaker te gebruiken:

Private Sub ComboBox2_Change()
  ToggleButton3.Picture = LoadPicture("D:\data\C"  [COLOR="Red"]& [/COLOR]Combobox2.listindex +1 &".jpg")
End Sub