Avatar billede KimNorregaard Nybegynder
14. juni 2010 - 15:37 Der er 5 kommentarer og
1 løsning

Indsætte billeder i Word skabelon

Hej.

Jeg skal lave en skabelon i Word 2003, hvor der skal kunne indsættes billeder fra et foruddefineret billedbibliotek. For at gøre det nemt for brugeren, vil jeg gerne automatisere dette på en eller anden måde.

Det optimale ville være en form for drop-down liste, der viste de billeder der kan vælges imellem. Når brugeren så klikker på et billede, indsættes billedet i dokumentet og drop-down listen forsvinder. Kan dette lade sig gøre?

Alternativt kunne løsningen være en makro, der kører "Indsæt billede fra fil" og derefter åbner det pågældende billedbibliotek. Men hvordan koder jeg denne makro?

Håber I kan hjælpe - tak på forhånd.
Avatar billede andera Novice
15. juni 2010 - 08:55 #1
Prøv med:

    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog( _
        FileDialogType:=msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = True
        .Show
    End With
    MsgBox dlgOpen.SelectedItems(1)
   
    Selection.InlineShapes.AddPicture FileName:= _
        dlgOpen.SelectedItems(1), _
        LinkToFile:=False, SaveWithDocument:=True
Avatar billede KimNorregaard Nybegynder
15. juni 2010 - 10:02 #2
Tak for dit svar andrea.

Jeg er desværre ikke den store kode-haj, så jeg har brug for lidt mere hjælp - hvordan får jeg koden indsat i dokumentet?
Avatar billede KimNorregaard Nybegynder
15. juni 2010 - 10:10 #3
Har prøvet at tilføje funktionen med en kommandoknap, og det lader til at virke efter hensigten :-)

Mangler kun to ting nu:
Hvor i koden kan jeg tilføje det aktuelle billedbibliotek?
Hvordan undgår jeg dialogboksen, der viser stien til sidst?
Avatar billede andera Novice
15. juni 2010 - 10:25 #4
Fjern msgbox linien

.InitialFileName = "C:\temp" indsættes efter with dlgopen
Avatar billede KimNorregaard Nybegynder
15. juni 2010 - 11:03 #5
Jeg har prøvet med nedenstående kode, men får en Compile Error. Kan du se hvor fejlen ligger?

Private Sub CommandButton1_Click()
Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog( _
        FileDialogType:=msoFileDialogOpen)
    With dlgOpen.InitialFileName = "C:\Temp"
        .AllowMultiSelect = True
        .Show
    End With
   
    Selection.InlineShapes.AddPicture FileName:= _
        dlgOpen.SelectedItems(1), _
        LinkToFile:=False, SaveWithDocument:=True

End Sub
Avatar billede KimNorregaard Nybegynder
15. juni 2010 - 11:22 #6
Nå, jeg fik knækket nødden. Tak for hjælpen, andrea


Private Sub CommandButton1_Click()
Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog( _
        FileDialogType:=msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = True
        .InitialFileName = "C:\temp"
        .Show
    End With
       
    Selection.InlineShapes.AddPicture FileName:= _
        dlgOpen.SelectedItems(1), _
        LinkToFile:=False, SaveWithDocument:=True

End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester