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

يمكنك من خلال الخصائص في النموذج ضبط حجم الصورة المطلوبة مهما كانت

ويمكنك ايضا باستخدام هذا البرنامج

Microsoft Office Picture Manager

الاستاذ رامي السيسي اشكرك على  هذا التجاوب  والمجهود الذي بذلته واقدر لك هذا ، و لكن المطلوب كما ذكرت حضرتك  بالضبط في اخر صورة  ، ولكن بالكود ، اكرر تقديري وشكري وتحياتي لك

اشكر كل من حاول المساعدة في هذا المنتدى المتميز

واود اخباركم باني وجدت المطلوب باستخدام اداة اسمها PhotoResize400

من موقع

http://www.freewarefiles.com/Picture-Resizer_program_15820.html

وباستخدام الكود

Private Sub rziz1_Click()
Call ResizePhoto
End Sub
Public Function ResizePhoto()

On Error GoTo ERRORHANDLER

Dim RetVal
Dim strDest As String
Dim strSource As String

'اسم ومسار الصورة بعد اعادة التحجيم

strDest = "-c" & CurrentProject.Path & "\21jj.JPG"

strSource = Me.Pic1

'يمكن تغيير الابعاد بتغير التسمية كما هو مذكور ادناه مثل    photoresize400  الى   photoresize200.exe

RetVal = Shell(CurrentProject.Path & "\PhotoResize200.exe -n -q100 -o """ & strDest & """ """ & strSource & """", vbHide)

Exit Function

ERRORHANDLER:

MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description

End Function

كما يمكن تغير الابعاد بتغيير اسم الاداة الى الاسماء الاتية

For example, To generate 200 pixels images, simply rename the application to PhotoResize200.exe.

Name codes overview

Resizing method

• PhotoResize400.exe - maximum side 400 pixels.
• PhotoResize_400.exe - minimum side 400 pixels.
• PhotoResizeF400x300.exe - frame size of 400x300 pixels. The resulting image width will be smaller or equal to 400 and its height will be smaller or equal to 300 pixels.
• PhotoResizeW400.exe - width set to 400 pixels. Height automatically computed to keep aspect ratio.
• PhotoResizeH400.exe - height set to 400 pixels. Width automatically computed to keep aspect ratio.
• PhotoResizeP50.exe - resize to 50%.
• PhotoResize400x300.exe - resize to exactly 400x300 pixels. Aspect ratio is not preserved.
• PhotoResizeD100.exe - resize to 100DPI. Physical size stays the same.
• PhotoResizeD100T.exe - overwrite the resolution information in the header without touching the pixels.
• PhotoResizeK20.exe - resize to approximate maximum size of 20kB.
• PhotoResizeG1024x768.exe - use content-aware resizing to change aspect ratio while preserving content.
• PhotoResizeA400x300.exe - crop and resize to 400x300 pixels. The central part is preserved and resized while the borders are cropped.
• PhotoResizeA400x300x5.exe - extend canvas and resize to 400x300 pixels. The last number (0-9) controls canvas brightness.
• واليكم الاداة مرفقة مع هذا المشاركة

ملف اداة PhotoResize200.rarPhotoResiz400.exe

الفيلسوف111 كتب:

الاستاذ رامي السيسي اشكرك على  هذا التجاوب  والمجهود الذي بذلته واقدر لك هذا ، و لكن المطلوب كما ذكرت حضرتك  بالضبط في اخر صورة  ، ولكن بالكود ، اكرر تقديري وشكري وتحياتي لك

شكرا لك وسعيد بصداقتك

والحمد لله ان وجدت مبتغاك

اما انا ، فالبرنامج المفضل عندي هو:

http://www.irfanview.net

وهو كبرنامج ، لا استطيع ان اعمل على كمبيوتر بدونه ، وبه اوامر commandline مما لذ وطاب :) ، ويستطيع اكسس ان يتعامل مع اوامره بسهولة ويُسر :) ، وعند تنصينه ، هناك ملف به جميع هذه الاوامر.

جعفر