Søg
Avatar billede hnteknik Novice
15. november 2004 - 11:31 Der er 5 kommentarer og
1 løsning

Billedstyring i WORD

Pigerne på kontoret er trætte af, at Default Wrapping er 'In line with tekst', når de skal sætte billeder in i rapporter.

De vil gerne have wrapping skal være 'Square, så de kan placere billede rigtigt med det samme.

Jeg kender opsætningen for at floate billedet /objektet:

Sub InsertPicture() 'InsertObject()
  With Dialogs(wdDialogInsertPicture)
      .FloatOverText = True '.Floating = True
      '.Update
      .Show
  End With
End Sub


.. men hvad er setting for wrapping quare ???

Henrik
Avatar billede jkrons Professor
15. november 2004 - 11:55 #1
Hvis du har W2000 eller nyere behøver du ingen makro. Gå ind io Funktioner - Indstillinger- Rediger. Her kan du vælge at billeder dkal indsættes "firkantet" som standard.

Hvis det skal være via en makro, kan du bruge

  .PictureWrapType = wdWrapMergeSquare
Avatar billede jkrons Professor
15. november 2004 - 11:57 #2
Din kode kunne så se sådan ud:

Sub InsertPicture() 'InsertObject()
  Options.PictureWrapType = wdWrapMergeSquare
  With Dialogs(wdDialogInsertPicture)
      .FloatOverText = True '.Floating = True
      .Show
  End With

End Sub
Avatar billede hnteknik Novice
15. november 2004 - 12:02 #3
Tak for tippet - har lige fået Word 2003 efter 97 og det er rigtigt, det du siger.

fandt lige denne tyske

http://www.chf-online.de/word/dialogparameter.htm

Takker - smider du et svar.
Avatar billede jkrons Professor
15. november 2004 - 12:03 #4
Ja da :-)
Avatar billede jkrons Professor
15. november 2004 - 12:05 #5
Den tyske side er OK, men der findes nu en glimrende oversigt i hjælpen. Prøv fx at søge på dialog, og så vælge Built-in dialog arguments list.
Avatar billede hnteknik Novice
15. november 2004 - 12:18 #6
Man skal lige vide, hvad man kigger efter.

Fandt også denne:

WdWrapTypeMerged can be one of these WdWrapTypeMerged constants.
wdWrapMergeBehind
wdWrapMergeFront
wdWrapMergeInline Default
wdWrapMergeSquare
wdWrapMergeThrough
wdWrapMergeTight
wdWrapMergeTopBottom

Sub PicWrap()
    With Application.Options
        If .PictureWrapType <> wdWrapMergeInline Then
            .PictureWrapType = wdWrapMergeInline
        End If
    End With
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
Word kurser
Tag et kursus i Word og øg effektiviteten
Se alle Word kurser

Flere spørgsmål fra Word kategorien

Titel Indlæg Oprettet Seneste aktivitet
Kan man slette skrifter : Word : Windows 10 ? Af Ikke-ekspert i Word 10 28/09/202519:16 29/09/202511:57
WordMat Af jgormm i Word 3 21/09/202510:53 22/09/202512:57
alfabetisk rækkefølge i word på ipad Af PAN i Word 1 02/06/202514:13 02/06/202522:24
Word VBA: Check engelsk gramma og ret fejl Af Dan Elgaard i Word 3 30/04/202509:34 02/05/202509:13
Fed skrift Af camsti i Word 3 07/04/202518:36 07/04/202522:58
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 21:03 Forlænge ringetid Af 1Dorte i Apps til Android
17/0117:38 Video ikoner Af Malm i Windows
17/0117:27 Video ikoner Af logbuilders i Windows
16/0110:29 Negativ billeder på samsung Af ALICE i Småopgaver
15/0115:45 HJÆLP - Lopslag, Indeks? Hvad gør jeg! Af Eva i Excel
White papers
Flere white papers »