Avatar billede superkrogsa Nybegynder
12. oktober 2005 - 13:26 Der er 5 kommentarer

Udarbejde en skabelon.

Hvor man ligesom i en (Standart) Powerpoint skabelon bare kan trykke på feltet også skal man tilføje et billede.. Kan det lade sig gører og kan det evt også lade sig gører at lave sådan en i et Word Dokument?

Grundet denne forespørgelse er at jeg skal udarbejde et standart layout til min arbejdsplads hvor de enkelt kan skifte tekst og billeder ud i faste rammer. Alternetive løsninger kan og bruges

Med Venlig Hilsen

Peter Krog
Avatar billede darth-domino Nybegynder
12. oktober 2005 - 13:30 #1
Jada....

Du laver bare et Doc, og gemmer den som Skabelon i filtype!
Avatar billede superkrogsa Nybegynder
12. oktober 2005 - 13:35 #2
Er nu ikke helt så nemt for der kan du ikke opbygge den.. Så bare ved et tryk får du mulighed for tilføjelse af et billede.
Avatar billede superkrogsa Nybegynder
12. oktober 2005 - 13:47 #3
Ligesom vis du åbner en standart skabelon i PowerPoint sådan en vil jeg selv lave.

Hjælpppeee

MVH
Peter Krog
Avatar billede superkrogsa Nybegynder
12. oktober 2005 - 13:51 #4
eller vis i kan kome på andre måder man kan lave sådan en skabelon ville det også være godt nok
Avatar billede supertekst Ekspert
13. oktober 2005 - 12:22 #5
Opret et Word dokument
Aktiver værktøjslinien "Kontrolelementer"
I værktøjskassen vælges knappen "Billede"
Højreklik på det oprettede billede og vælg "Formater kontrolelement" - LayOut|Tæt (f.eks.) - nu kan billedet flyttes ogstørrelsen kan ændres.
Højreklik på billedet og vælg egenskaber - heri PictureSizeMode - vælg indstilling 1 - ...Stretch - luk egenskaber.
Dobbeltklik på billedet - der åbnes nu til VBA:

Private Sub Image1_Click()

End Sub

Erstat dette med følgende:

Private Sub Image1_Click()
    billede = valgAfBillede
    If billede <> "" Then
        Image1.Picture = LoadPicture(billede)
    End If
End Sub
Private Function valgAfBillede()
Dim doksti
    On Error GoTo fejl1
   
    With Dialogs(wdDialogFileOpen)
        .Name = "*.jpg;*.bmp"
        kopiname = .Name
        .Display
        doksti = CurDir
        billede = .Name
       
        If Right(doksti, 1) <> "\" Then
            doksti = doksti + "\"
        End If
    End With
   
    If billede = kopiname Then
        valgAfBillede = ""
    Else
        valgAfBillede = doksti + billede
    End If
    Exit Function
   
fejl1:
    valgAfBillede = ""
End Function

Luk herefter VBA - returner til dokument - slå designtilstanden fra i værktøjskassen og luk værktøjslinien.

Gem dokumentet evt. dokumentet som skabelon.

Klik på billedet og vælgen mappe med billeder - vælg billede i dialogboksen - luk med Åbn. Billedet indsættes.
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