سلام دوست عزیز
ببینید شما ی ماکرو ضبط کنید
توی اون عکستون رو کوچیک یا بزرگ کنید
بعد توی کد ضبط شده، قسمت مربوط به اعداد رو عدد دلخواه بزنید
[hr]
الان اینو ببینید.
من ی ماکرو ضبط کردم
عدد 1.5 رو تغییر بدین.با سعی و خطا به عددی که می خواید میرسید
[align=left]
کد:
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.Pictures.Insert("C:\Users\Hosna\Pictures\1.png").Select
Selection.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
End Sub
[/align]
علاقه مندی ها (Bookmarks)