Indsætte billede med caption i word med brug af VBA

Koden, du har fundet, er lavet til en engelsk version af Word, og din version er sikkert dansk.

InsertCaption kræver, at den angivne "Label" findes. Navnet på denne label står til "Figure", og den findes ikke i dansk Word, med mindre du har tilføjet den (det samme gælder din test: "noget tekst").

Gør følgende:
I linjen, som starter med:
Selection.InsertCaption Label:="Figure", TitleAutoText:=""
ændr "Figure" til "Figur" og prøv så igen. Så er problemet sandsynligvis løst.

Du kan også via VBA tilføje ekstra CaptionLabels, men det er der ingen grund til, hvis du ikke skal bruge dem:

Application.CaptionLabels.Add Name:="Figure"
tilføjer label "Figure", som ville få den oprindelige kode til at køre - men hvis du skriver på dansk, skal din label ikke være på engelsk.

Følgende makro vil vise de CaptionLabels, der er defineret hos dig:

Sub ShowCaptionLabels()
    Dim n As Long
    With Application
        For n = 1 To .CaptionLabels.Count
            MsgBox .CaptionLabels(n).Name
        Next n
    End With
End Sub

Tilføjelse:
"Label" er ikke selve figurteksten men den tekst, der automatisk indsættes foran nummeret.

Du har ret!
Hvis jeg ændre "Figure" til "Figur".

Men faktisk er min Excel version engelsk.
I hvert fald er alle menuer på engelsk. men indsættes ved indsættelse af caption bruges "Figur".
Du må gerne sende et svar.

Det var godt, at det løste problemet.
Selv om du har engelsk Office-version, står dine sprogindstillinger under Kontrolpanelet givetvis til dansk, og det medfører "sprogforvirring" i nogle sammenhænge.

Ja det er nok det der er forklaringen. Tak for hjælpen :-)