Eigenschappen van meerdere camerabeelden resetten

[grietsenwijma]

Goedenavond raadgevers,

Ik heb een document gemaakt waarbij er van veel camerabeelden gebruik wordt gemaakt (enkele tientallen)
Omdat de beelden dynamisch zijn levert dat wel eens hobbels op bij het aannemen van de juiste grootte.

Nu probeer ik met behulp een code alle camerabeelden tegelijk te resetten naar hun oorspronkelijke vorm. zodat alles met één klik weer goed staat.
Helaas krijg ik dat niet goed voor elkaar, zie voorbeeld in de bijlage

ik hoop dat er iemand is die mij hier een stapje verder mee kan helpen, alvast dank!

 

[cow18]

Sub Test()

     For Each shp In ActiveSheet.Shapes
          With shp
               If .Type = 13 Then            'picture !!!
                    'Debug.Print shp.Type & shp.TopLeftCell.Address
                    .ScaleHeight 1#, True, msoScaleFromTopLeft
                    .ScaleWidth 1#, True, msoScaleFromTopLeft
                    .LockAspectRatio = msoFalse
               End If
          End With
     Next shp
End Sub

 

[grietsenwijma]

Doet helemaal wat ie moet doen!

Bedankt, ik ga de vraag als opgelost markeren!