resime tıklandığında büyümesi hakkında

[EXTRANET]

merhaba arkadaşlar

ekteki resimlere tıklandığında tıklanan resim büyüyebilir mi?

teşeküler

 

[Trilenium]

Sub Picture2_Click()
ActiveSheet.Shapes("Picture 2").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 57.75
Selection.ShapeRange.Width = 57.75
End Sub

 

[Globe]

Resim büyült-küçült

Dosyanız hazır. Resimlerin üzerine tıkladığınızda büyür, tekrar tıkladığınızda küçülüp eski boyutuna gelir. Kodları VBA penceresinden görebilirsiniz.

 

[EXTRANET]

çok teşekür ederim elinize sağlık

 

[Globe]

çok teşekür ederim elinize sağlık

Birşey değil