Flytte et billede/Streg

Denne kan flytte billede. Den flytter dog i Pixel ikke milimeter.

Indsæt den i programkoden i ark1. Den flytter billedet så snart der tastet i noget i A1.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1")) Is Nothing Then

With ActiveSheet
.Pictures.Delete
End With
file = ""      'indsæt dit ønskede billede her, bemærk det skal være tilgængeligt for alle brugere.
højde = 200    'ændre højde på billede
bredde = 200    'ændre bredde på billede
startposx1 = 50 + Range("a1").Value
startposy1 = 20

    ActiveSheet.Shapes.AddPicture file, _
    True, True, startposx1, startposy1, bredde, højde
End If
End Sub

Du må undskylde jeg er ikke nogen haj til excel. må jeg prøve at maile det til dig?
For jeg tror ikke rigtigt jeg forstår.

anders.lerskov (A) gmail.com

Andre der muligvis kan hjælpe???

Andre der har et bud????