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