Avatar billede puppetmaster Nybegynder
21. februar 2002 - 14:27 Der er 2 kommentarer og
2 løsninger

VBA, indrykning og indsæt billede

Jeg ønsker en makro der kan rykke markøren fra dens nuværende plads til at være 1.1CM fra venstre kant af papiret, IKKE i forhold til marginen! (dvs. en "re-definering" af den nuværende margin) Her efter åbnes "Indsæt billede" dialogboksen, denne del af koden har jeg.
Jeg har prøvet med LeftIndent, RightIndent og IndentFirstLineCharWidth, ligemeget hjælper det. :(
Avatar billede martin_moth Mester
21. februar 2002 - 15:46 #1
Det kan jo kun lade sig gøre, hvis margin <= 1,1 cm. Således vil jeg foreslå, at du sætter margin til 1,1 cm. dette kan med en macro f.eks. gøres på følgende måde:

Private Sub PlacePicture
  With ActiveDocument.PageSetup
    .LeftMargin = CentimetersToPoints(1.1)
    'Evt andre egenskaber, du vil pille ved, f.eks. andre margener e.l.
  end with
  Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
  Selection.HomeKey
  'Kode til at indsætte billede
End Sub

"Selection.HomeKey" svarer til tast på HOME. I linien forinden er der der valgt venstrejustering. Således vil curseren stå ved venstre kant, 1,1 cm fra papirkanten, uanset om den stod midt i en linie med f.eks. centreret tekst, da macroen blev kaldt... /Martin
Avatar billede martin_moth Mester
21. februar 2002 - 15:46 #2
Ovenstående var et svar ;o) /Martin
Avatar billede puppetmaster Nybegynder
25. februar 2002 - 08:35 #3
Det eneste problem med din løsning er, at alt andet på siden også bliver rykket ud til marginen.
På linealen er der en trekant, som når man fører musen over viser tooltip'et "Indrykning af første linie"
Når jeg flytte denne trekant til at være 1.1 cm fra marginen, bliver alt andet stående. Modstykket til dette hedder i VBA IndentFirstLineCharWidth, så vidt jeg er orienteret, men når jeg forsøger at bruge IndentFirstLineCharWidth, rykkes alt til 1.1 cm fra marginen! :(
Avatar billede puppetmaster Nybegynder
25. februar 2002 - 08:40 #4
Fandt selv kommandoen!

Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(-1.1)

Nå, men du skal da have ½ point for dit forslag
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