تغییر خودکار سایز عکس با vba

[smnas]

سلام
یه سوالی دارم، ممنون میشم کسی میدونه جواب بده، من میخوام با ماکرو یه چی بنویسم که وقتی عکسیو میارم تویه اکسل سایزش اون ساز مورد نظر من بشه؟ خواهش میکنم کمک کنید

[khakzad]

RE: کمکککککککککککککککککک

سلام دوست عزیز
ببینید شما ی ماکرو ضبط کنید
توی اون عکستون رو کوچیک یا بزرگ کنید
بعد توی کد ضبط شده، قسمت مربوط به اعداد رو عدد دلخواه بزنید
[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]

[smnas]

RE: تغییر خودکار سایز عکس با vba

سلام ، لطف کردین، ولی از من اجرایی نشد میشه فایلتونو بفرستین ممنونتونم
mazaheri_s2@yahoo.com

[MEYTI]

RE: تغییر خودکار سایز عکس با vba

با سلام با اجازه خانم خاکزاد
نمونه زیر خدمت شما دوست عزیز
picture

[khakzad]

RE: تغییر خودکار سایز عکس با vba

سلام ، لطف کردین، ولی از من اجرایی نشد میشه فایلتونو بفرستین ممنونتونم
mazaheri_s2@yahoo.com

ممنون از دوست عزیزمون MEYTI که فرستادن فایل
اما شما باید اون مسیر رو با توجه به مسیر عکس تغییر بدین که کار کنه.کلا از اول اگه ضبط می کردین ماکرو، راحت تر بودین
موفق باشید

[smnas]

RE: تغییر خودکار سایز عکس با vba

ممنونم دوستان عزیر، خیلی لطف کردین[hr]
من همه دوستان ممنونم مخصوصا از دوست عزیزم meyti که همون چیزیو که میخواستمو درست کرد، یه دنیا ممنونم[hr]
اقای meyti میشه لطف کنید ایمیلتونو بدین ؟

[MEYTI]

RE: تغییر خودکار سایز عکس با vba

خواهش میکنم دوست عزیز
karimi_138@yahoo.com