Redigering af billede via Makro

Der er begrænsninger ifht. billeder i Excel, men her er lidt du kan starte fra.
Her starter makroen med at få det valgte billede ind i variablen oSR af typen ShapeRange, hvorfor du så efterfølgende kan skrive oSR. og få de forskellige muligheder, som du kan lege med.

Sub DemoSelectedPicture()
    Dim oSR As ShapeRange
   
    On Error GoTo Finito
    Set oSR = Selection.ShapeRange

    'Størrelse   
    oSR.Width = Application.CentimetersToPoints(13.1)
    oSR.Height = Application.CentimetersToPoints(18)
    'oSR.Width = Range("C5").Width
    'oSR.Height = Range("C5").Height

    'Placering
    oSR.Top = Range("C5").Top
    oSR.Left = Range("C5").Left
   
Finito:
End Sub

Tak skal du have, men det er i en tabel i Word!

hehe - der har jeg sovet godt i timen
Prøv at hent det Word eksempel om billeder, som findes her http://www.smartoffice.dk/Tips/Eksperten/Index.asp

Tak skal du have, men dit Word eksempel er ikke meget bedre ;-)
I dit eksempel er der tale om indsætning af billeder fra en mappe.
Jeg HAR hentet billedet ind og skal have det redigeret i forhold til overfor.

Mon du kan nøjes med
Sub Demo()
    Selection.ShapeRange.WrapFormat.Type = wdWrapFront
    Selection.ShapeRange.Width = CentimetersToPoints(18)
    Selection.ShapeRange.Height = CentimetersToPoints(13.1)
End Sub


ellers er her en masse at lege med... god fornøjelse (jeg lukker nemlig ned for i dag)

    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 166.95
    Selection.ShapeRange.Width = 142.3
    Selection.ShapeRange.PictureFormat.Brightness = 0.5
    Selection.ShapeRange.PictureFormat.Contrast = 0.5
    Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
    Selection.ShapeRange.PictureFormat.CropLeft = 0#
    Selection.ShapeRange.PictureFormat.CropRight = 0#
    Selection.ShapeRange.PictureFormat.CropTop = 0#
    Selection.ShapeRange.PictureFormat.CropBottom = 0#
    Selection.ShapeRange.RelativeHorizontalPosition = _
        wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = _
        wdRelativeVerticalPositionParagraph
    Selection.ShapeRange.Left = CentimetersToPoints(0)
    Selection.ShapeRange.Top = CentimetersToPoints(0.57)
    Selection.ShapeRange.LockAnchor = False
    Selection.ShapeRange.WrapFormat.Type = wdWrapNone
    Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
    Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.DistanceRight =
CentimetersToPoints(0.32)

Kan ikke få det til at virke - Spørgsmål lukkes!