VBA: Geplakte afbeelding verplaatsen naar cel

[88Gamer88]

Hallo allemaal,

Ik heb per ongelijk iets doms gedaan..
Heb me macro van excel verwijderd en kan deze nergens meer terug vinden. ( Werk op Mac )

Nu wil ik graag een nieuwe macro maken alleen me kennis is in de loopt te tijd weg gezakt naar 0.
Zodoende hoop ik dat iemand mij hierbij ken helpen.

Uitleg in het kort:

Ik plak een afbeelding in Excel (afkomstig van Word).
Selecteer de geplakte afbeelding en klik op de macro.
Deze zet de afbeelding naar cel C10 top en schaalt hem tot en met cel D23.

Het was een korte VBA code wat me herinnerd volgens me grafisch geheugen dacht ik aan zo iets:

Set cel= Range ("C10")
Load aspect rastio- MSOTrue

Dim as Range

Top range ("C10","D23"). top.
Left range ("C10","D23"). Left.
Width= range ("C10","D23"). Width.
Height= range ("C10","D23"). Height

Hopelijk kan iemand me helpen om een werken VBA code te maken
Alvast bedankt.

 

[88Gamer88]

Ik het het weer werkend gekregen, met een iets andere VBA code maar het werkt het zelfde.
Gisteren hele dag mee bezig geweest, en vandaag in een ochtend gelukt.

Sub VerplaatsAfbeelding()
Dim img As Picture
Dim rng As Range

' Controleer of er een afbeelding is geselecteerd
If TypeName(Selection) <> "Picture" Then
MsgBox "Selecteer eerst een afbeelding.", vbExclamation
Exit Sub
End If

' Sla de geselecteerde afbeelding op in een variabele
Set img = Selection

' Verplaats de afbeelding naar cel C11
Set rng = Range("C11")
img.Top = rng.Top
img.Left = rng.Left

' Schaal de afbeelding tot cel E24
img.ShapeRange.LockAspectRatio = msoFalse
img.ShapeRange.Width = Range("F24").Left - img.Left
img.ShapeRange.Height = Range("F24").Top - img.Top

' Ruim de geheugenruimte van de variabele op
Set img = Nothing
End Sub

Vroeg me wel af of er een optie is om "special plakken afbeelding" toetevoegen