makro ile resim büyüyüp küçülme

[mustafateknetas]

merhaba.
ekli dosyada resim tıkladığımda orijinal boyutunda büyüyor
tekrar tıkladığımda istediğim boyutta küçülüyor.
istediğim:
resmimin büyüme boyutuna da sınır koyabilirmiyiz.
teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kullandığınız kodda kırmızı renkli değerlerle oyanayarak resim büyüklüğünü ayarlayabilirsiniz.

Private Sub Buyuklugu_Kontrol_Et(objShp As Shape)
 
    Dim vSpl As Variant
    Dim dblShpYuk As Double
    Dim dblShpGen As Double
    Dim i As Integer
 
    For Each vSpl In Split(objShp.AlternativeText, ";")
        i = i + 1
        If i = 1 Then dblShpYuk = CDbl(vSpl) Else dblShpGen = CDbl(vSpl)
    Next
    If objShp.Height = dblShpYuk Then
        objShp.Height = dblShpYuk * [B][COLOR=red]5[/COLOR][/B]
        objShp.Width = dblShpGen * [COLOR=red][B]8[/B][/COLOR]
        objShp.ZOrder msoBringToFront
    Else
        objShp.Height = dblShpYuk
        objShp.Width = dblShpGen
        objShp.ZOrder msoSendBackward
    End If
 
End Sub