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
Tag et kursus i Word og øg effektiviteten

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