powerpointte makro için yardım lütfen

powerpointte 40 slaytlık sunum yapmam gerek ve çok fazla foto var ben hepsine yer vermeliyim
foto galeri gibi küçük fotolar üstüne tıklayınca büyüsün sonra tekrar küçülsün istiyorum
araştırdım buldum yaptım ama alttaki foto altta büyüyo ve görünmüyo
mutlaka konum belirtmeliyim
konumu belirttim ama ilk konuma nasıl döndürülür bilmiyorum((
nasıl yapabilirim?

Sub Büyült(myShape As Shape)

myShape.Left = 100
myShape.Top = 100
myShape.Height = myShape.Height * 2
myShape.Width = myShape.Width * 2
myShape.ActionSettings(ppMouseClick).Run = "Küçült"
End Sub


Sub Küçült(myShape As Shape)
myShape.destopposition = True
myShape.Height = myShape.Height / 2
myShape.Width = myShape.Width / 2
myShape.ActionSettings(ppMouseClick).Run = "Büyült"
End Sub

Her iki fonksiyona da
myShape.ZOrder (msoBringToFront)
satırını ekleyin.

sunu bu
vb den hiç anlamıyorum

düzgünce gelsin büyüsün eski haline ve konumuna geri dönsün istiyorum

Ekteki dosyada gerekli düzenlemeyi yaptım. Resimler sayfaya ortalı ve sığacak şekilde yerleştirilmektedir.

:++:
harika olmuş hocam, emeğinize sağlık biz de yaptık ama sizin ki daha süper olmuş
Allah razı olsun büyük bir dertten kurtuldum :alkis:

İşinize yaradığına sevindim.

süperdi hocam hayat kurtardı o derece yani
Allah razı olsun