Macro - kan ikke formaterer det indsatte billede?!
Har indspillet en macro der indsætter et billede og formater det i sammen hug.1.a) Hvorfor kan jeg ikke få lov at pille ved "layout" funktionen når jeg indspiller macroen? Det er jo ikke noget problem når man bare formatere et billede normalt i word?
1.b) Har også noget rod med at få en sort ramme rundt om billedet, men det har jeg vist løst, omend på en besværlig måde!
2)Kan jeg få macroen til af formatere størrelsen af billedet så det er 10cm på den længste side, alt efter om det er "portræt" eller "landskab" format?
Her er macroen jeg har indspillet:
Sub foto()
'
' foto Makro
' Makro indspillet 17-01-2006 af OEM
'
Application.Run MacroName:="IndsætBillede"
Selection.TypeBackspace
With Selection.InlineShapes(1)
Selection.InlineShapes(1).Fill.Visible = msoFalse
Selection.InlineShapes(1).Fill.Solid
Selection.InlineShapes(1).Fill.Transparency = 0#
Selection.InlineShapes(1).Line.Weight = 0.75
Selection.InlineShapes(1).Line.Transparency = 0#
Selection.InlineShapes(1).Line.Visible = msoFalse
Selection.InlineShapes(1).LockAspectRatio = msoTrue
Selection.InlineShapes(1).PictureFormat.Brightness = 0.6
Selection.InlineShapes(1).PictureFormat.Contrast = 0.6
Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureGrayscale
Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
Selection.InlineShapes(1).PictureFormat.CropRight = 0#
Selection.InlineShapes(1).PictureFormat.CropTop = 0#
Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
End Sub