اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تغير حجم الصورة


الردود الموصى بها

السلام عليكم ورحمه الله وبركاته

اخواني مشرفي واعضاء المنتدى الكرام

هل يوجد طريقه بتغير حجم الصورة

هل في كود اقدر اغير الحجم بالكود

ولكم مني جزيل الشكر

مثال كما يتم تغير الصورة بالرسام

كيف اطبقها بالاكسس

رابط هذا التعليق
شارك

وعليكم السلام ورحمة الله وبركاته ...... أذا كان تصغير الصورة داخل النموذج ... جرب هذا الكود

Dim intWidth As Integer
Dim intHeight As Integer

With Me![FormSub].Form![formsubsub].Form![Image3]
    intWidth = .Width
    intHeight = .Height

    .Width = intWidth / 1.05
    .Height = intHeight / 1.05
    .SizeMode = acOLESizeZoom
End With
DoEvents

 

  • Like 1
رابط هذا التعليق
شارك

لا اخيkanory

ليس هذا ما اقصد

قد شفت  هذا الكود من قبل

عندي الصورة مثال في هذا المسار

"D:\بـرنـامـج الـخـيـاط\DATA\StPic" & ".jpg"

 

رابط هذا التعليق
شارك

تسلم

عندي موضوع لو حالفك الحظ في عمل الكود في المواضيع الجديد لاهنت

تم تعديل بواسطه عاشق الرقي
رابط هذا التعليق
شارك

اخي جعفر jjafferr

عند صور مقاساتها 1650*3200

مثلا

اريد احولها الى

800*650

كما تغيرها في الرسام

اريد اغيرها عبر كود

 

http://www.mediafire.com/file/2u7c7b8d7w6xvt2/Desktop.rar/file

تم تعديل بواسطه ابو ياسين المشولي
رابط هذا التعليق
شارك

1 ساعه مضت, jjafferr said:

السلام عليكم اخوي ابو ياسين:smile:

 

هل هذا الذي تريده ، ولكن طبعا بتغيير بسيط حتى يلائم برنامجك:

جعفر

تسلم اخي على الهديه

انا مسافر

اذا وجد باليمن نت نتواصل

  • Thanks 1
رابط هذا التعليق
شارك

  • 1 month later...

تسلم اخي جعفر

فكرة ممتازة

ولكن للاسف انا كان ودي تغير حجم الصورة الاساسيه

وهي في الجلد

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information