VBA: WORD: Afbeelding vervangen

[williamvdh]

Hallo allemaal,

Ik zoek een manier om bij het opstarten van Word een bepaalde afbeelding te vervangen door een andere afbeelding, het liefst één die je zelf kunt definieren bij het opstarten, anders één die gedefinieerd is in de code.. Ik heb vanalles geprobeerd en gezocht maar ik kom er niet uit. Iemand?

Groeten,
William

 

[Axel Hagg]

Afbeeldingen kiezen

Kopieer onderstaande sub in een module van Normal of creëer een module in Normal

Public Sub AutoExec()
Dim a() As String
Dim f
Dim n As Integer

With CreateObject("Scripting.FileSystemObject").GetFolder("C:\Afbeeldingen\")
n = -1
ReDim a(1, .Files.Count - 1)
For Each f In .Files
n = n + 1
a(0, n) = f.Path
a(1, n) = Left(f.Name, Len(f.Name) - 4)
Next
End With
With UserForm1
.ComboBox1.Column() = a
.ComboBox1.ListIndex = 0
.ComboBox1.SetFocus
.Show
End With
End Sub

Invoegen in Normal-Formulieren een userform (UserForm1) met een Image (Image1), een Combobox (ComboBox1) en een opdrachtknop (CommandButton1).

De volgende eigenschappen instellen:
Image1.PictureZiseMode = 3 – fmPictureZiseModeZoom
ComboBox1.Columns = 2
ComboBox1.ColumnWidths = “0 pt; 1 pt”

Voeg de volgende code toe aan UserForm1

Option Explicit

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex >= 0 Then Image1.Picture = LoadPicture(ComboBox1.Column(0, ComboBox1.ListIndex))
End Sub

Private Sub CommandButton1_Click()
' Plaats de afbeelding genaamd: ComboBox1.Column(0, ComboBox1.ListIndex) op de gewenste plek.
UserForm1.Hide
End Sub

Private Sub CommandButton1_Enter()
ComboBox1.DropDown
End Sub

Tot slot: Maak een map C:\Afbeeldingen\ (of een andere naam en zet de naam van deze map ook in het programma) en zet daar uw afbeeldingen in