پرسش بزرگنمایی تصویر در اکسل به کمک vba

[gh.pa]

سلام
این فایل اکسل مربوط به بزرگ نمایی تصویر هست که یکی از دوستان زحمت کشیدن و این کد را برای من نوشتن اما در هنگام اجرا تصویر در جای قبلی خودش جا نمیگیره . باید جکار کرد تا حل بشه؟

[حسام بحرانی]

Resize_Picture

سلام دوست عزیز
در کدی که براتون نوشتند کافیه سایز عکس رو کمی کوچکتر کنید مثلاً : big=2.7

Sub Resize_Picture()

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 2.72
    small = 1
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
     
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

End Sub

موفق باشید.

[حسام بحرانی]

افزایش عرض ستون

البته اگر قصد ندارید بزرگنمایی تصویر رو تغییر بدید می تونید عرض ستون a رو افزایش بدید.
موفق باشید.

[gh.pa]

انجام دادم اما باز هم عکس پرش میکنه .مخصوصا اگه یه عکس جدید اضافه کنم و در یک سلول دیگه در یک ستون دیگه بذارم مثلا سلول g7 یا g\3
و اینکه اینم بگم اندازه بزرگنماییم میخوام بشتر هم باشه و من عدد 5 گذاشتم