Søg
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel Indlæg Oprettet Seneste aktivitet
Libre office skriveprogram Af Frank i Office & Kontorpakker 1 18/09/202619:52 18/09/202620:52
Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker 3 24/08/202620:07 25/08/202613:07
Skift fra Microsoft365 til Microsoft 2024 Af 1Dorte i Office & Kontorpakker 8 19/08/202619:46 26/08/202622:30
Kan jeg beholde Publisher på min maskine efter at MS stopper med support Af KurtG i Office & Kontorpakker 17 05/08/202610:19 07/08/202617:34
Afinstallere Office 2024 Af mort1 i Office & Kontorpakker 8 17/07/202614:41 21/07/202618:35
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:43 Nomad Tracking Car Af fleknes i Apps til Android
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
White papers
Flere white papers »