تحجيم الصورة

[ايمن14]

السلام عليكـــــم جميعـــــا

ادا امكـــن

هل توجـــد دالة لتحجيـــم الصور عند تحميل 

او كود لتحجيم صورة زر امــر

تم تعديل نوفمبر 15, 2022 بواسطه ايمن14

[Ahmed_J]

السلام عليكم استاذ

ماذا تقصد بتحجيم الصوره؟ 

هل تقصد عن اضافة صورة لملف  الاكسس (يمكن تكبيرها او تصغيرها عن طريق الكود) داخل النموذج

تحياتي

 

تم تعديل نوفمبر 16, 2022 بواسطه Ahmed_J

[ايمن14]

وعليكم السلام

المطلوب

عند تحميل  الصورة مهما كانت ابعادها  مثلا 1200x600

عند حفظها في المجلد بمقاس محدد مثلا 100x70

[Ahmed_J]

السلام عليكم

انظر للرابط  فيه الكثير من الاعدادات للصور اتمنى ان يكون المطلوب

تحياتي

 

تم تعديل نوفمبر 16, 2022 بواسطه Ahmed_J

[ايمن14]

وعليكم السلام

المطلوب

عند تحميل  الصورة مهما كانت ابعادها  مثلا 1200x600

عند حفظها في المجلد بمقاس محدد مثلا 100x70

المثال ليس مثل المطلوب

ما اريده  هو  حفظ الصورة بمقاس من اختياري مهما كانت ابعاد الصورة

[jjafferr]

السلام عليكم 🙂

 

لوسمحت تشرح لنا خطوات "تحميل الصورة" ثم "حفظها" ،

وهل مقاس الحفظ دائما سيكون ثابت ؟

هل سيكون للاكسس دور في العملية اعلاه ؟

 

جعفر

[Moosak]

وعليكم السلام ورحمة الله 🙂

 

من خلال البحث في الانترنت وجدت هذا الكود ، وظيفته أن يغير ( حجم ، قياسات ، أبعاد ، ... ) الصور 🙂 

وطريقة الاستخدام مشروحة في الكود نفسه :

'---------------------------------------------------------------------------------------
' Procedure : WIA_ResizeImage
' Author    : Daniel Pineault, CARDA Consultants Inc.
' Website   : http://www.cardaconsultants.com
' Purpose   : Resize an image based on Max width and Max height using WIA
' Copyright : The following may be altered and reused as you wish so long as the
'             copyright notice is left unchanged (including Author, Website and
'             Copyright).  It may not be sold/resold or reposted on other sites (links
'             back to this site are allowed).
' Req'd Refs: Uses Late Binding, so none required
'
' Windows Image Acquisition (WIA)
'             https://msdn.microsoft.com/en-us/library/windows/desktop/ms630368(v=vs.85).aspx
'
' Input Variables:
' ~~~~~~~~~~~~~~~~
' sInitialImage : Fully qualified path and filename of the original image to resize
' sResizedImage : Fully qualified path and filename of where to save the resized image
' lMaximumWidth : Maximum allowable image width
' lMaximumHeight: Maximum allowable image height
'
' Usage:
' ~~~~~~
' Call WIA_ResizeImage("C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg", _
'                      "C:\Users\MyUser\Desktop\Chrysanthemum_small.jpg", _
'                      800, 600)
'
' Revision History:
' Rev       Date(yyyy/mm/dd)        Description
' **************************************************************************************
' 1         2017-01-18              Initial Release
'---------------------------------------------------------------------------------------
Public Function WIA_ResizeImage(sInitialImage As String, sResizedImage As String, _
                                           lMaximumWidth As Long, lMaximumHeight As Long) As Boolean
    On Error GoTo Error_Handler
    Dim oWIA                  As Object 'WIA.ImageFile
    Dim oIP                   As Object 'ImageProcess
 
    Set oWIA = CreateObject("WIA.ImageFile")
    Set oIP = CreateObject("WIA.ImageProcess")
 
    oIP.Filters.Add oIP.FilterInfos("Scale").FilterID
    oIP.Filters(1).Properties("MaximumWidth") = lMaximumWidth
    oIP.Filters(1).Properties("MaximumHeight") = lMaximumHeight
 
    oWIA.LoadFile sInitialImage
    Set oWIA = oIP.Apply(oWIA)
    oWIA.SaveFile sResizedImage
    WIA_ResizeImage = True
 
Error_Handler_Exit:
    On Error Resume Next
    If Not oIP Is Nothing Then Set oIP = Nothing
    If Not oWIA Is Nothing Then Set oWIA = Nothing
    Exit Function
 
Error_Handler:
    MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Source: WIA_ResizeImage" & vbCrLf & _
           "Error Description: " & Err.Description & _
           Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
           , vbOKOnly + vbCritical, "An Error has Occurred!"
    Resume Error_Handler_Exit
End Function

المصدر : https://www.devhut.net/vba-resize-image/

تم تعديل نوفمبر 16, 2022 بواسطه Moosak

[ايمن14]

بارك الله فيك

بنسبة للمديول استعملته من قبل لاكن لايوفي بطلب

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

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

المشكل هو قبل حفظ صورة يجب تغيير اسم صورة

 

فحاولة اعدل على الموديول 

Public Sub ResizeImage_launch()

  If ResizeImage("C:\Users\mostafa\Documents\tt\Pic\1.jpg", "C:\Users\mostafa\Documents\tt\Pics\1.jpg", True, 150, 150) Then
       MsgBox "Image Resized Successfully!", , "Success"
   Else
      MsgBox "ResizeImage() Failed!", , "Error"
   End If

End Sub

لتكون القيمة من اسم صورة الموجودة نمودج 

لكن لم اتمكن

وردا على استادنا السيد جعفر

نعم عند حفظ الصورة تكون بمقاس ثابت

اريد موديول لتحميل صورة وحفظها بمقاس محدد

[Moosak]

47 دقائق مضت, ايمن14 said:

اريد موديول لتحميل صورة وحفظها بمقاس محدد

أنا جربت الكود السابق وكانت النتيجة ممتازة .. 👍

وحتى أنه يغنيك عن أكواد النسخ واللصق .. فقط تكتب له ( من ـ إلى .... والقياس المطلوب ) .. والسلام  🙂 

50 دقائق مضت, ايمن14 said:

If ResizeImage("C:\Users\mostafa\Documents\tt\Pic\1.jpg", "C:\Users\mostafa\Documents\tt\Pics\1.jpg", True, 150, 150) Then

شيل كلمة True, اللي بالأحمر

هكذا تكتب الدالة بشكل صحيح :

WIA_ResizeImage("C:\Users\mostafa\Documents\tt\Pic\1.jpg","C:\Users\mostafa\Documents\tt\Pics\1.jpg",150, 150)

 

[ايمن14]

استاد Moosak

هل في كل مرة اقوم بتغيير اسم الصورة

بنسبة للعميل فستكون مشكلة

فالدي اردته هو عند حفظ الصورة في المجلد تكون بمقاس من اختياري 

للعلم لكي لا تفهم المسالة بالغلط 

الاكسس توجد فيه خاصية تغيير مقاس الصورة دون اكواد ودون موديول ( هاده بنسبة ImagePicture )

لكن اغلب خبراء الاكسس او البرمجة يعرفون ان لاتوجد خاصية تعديل مقاس صورة زر امر (CommandBotton )

فهاد ما ابحث عنه

لاني اريد صور زر امر  مناسبة لمقاس زر  

[jjafferr]

30 دقائق مضت, ايمن14 said:

الاكسس توجد فيه خاصية تغيير مقاس الصورة دون اكواد ودون موديول ( هاده بنسبة ImagePicture )

لكن اغلب خبراء الاكسس او البرمجة يعرفون ان لاتوجد خاصية تعديل مقاس صورة زر امر (CommandBotton )

يا ريت تخبرنا هذه الطريقة 🙂

 

56 دقائق مضت, ايمن14 said:

هل في كل مرة اقوم بتغيير اسم الصورة

الطريقة المتعودين عليها ، انه لما تختار الصورة (سواء من الماسح الضوئي او عملت لها تنزيل من الهاتف او الانترنت) ، فيقوم البرنامج :

1. بأخذ الصورة من المجلد الحالي الى المجلد المخصص لهذه الصورة ،

2. يقوم بتسمية الصورة ، سواء بالرقم الوظيفي او اسم صاحب الصورة من واقع بيانات السجل الذي انت عليه في النموذج ،

3. نقوم بتغيير حجم الصورة الى الحجم الصحيح (ليس في جميع البرامج ، ولكني فعلت هذا في بعض برامجي ، واستعين ببرنامج irfanView لهذا العمل).

 

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

3 ساعات مضت, jjafferr said:

لوسمحت تشرح لنا خطوات "تحميل الصورة" ثم "حفظها" ،

وهل مقاس الحفظ دائما سيكون ثابت ؟

هل سيكون للاكسس دور في العملية اعلاه ؟

 

جعفر

 

[ايمن14]

انت الخبير ومنك نتعلم

بنسبة لصور فهناك خصائص الصورة وتختار  (تكبير/تصغير - قطع - تمدد )

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

وعندي برامج كثيرة استعملت صورة فقط  على خاصية تمدد 

ومن بينها برنامج ثم تصميمه لمقهى 

انظر لصورة  

 

فما اريده  هو ان يتم حفظ صورة بمقاس محدد

ليتناسب مع زر امر

ففي هدا البرنامج لم استخدم ازرار 

وانما  صورة ومربع نص غير منضم 

فاريد تخفيف  لجعل زر امر فقط

 

اتمنى قد وصلت الفكرة

تم تعديل نوفمبر 16, 2022 بواسطه ايمن14

[ايمن14]

الى السيد جعفر

انا مستخدم باسم ( غريب طرابلس - wparabica@gmail.com )

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

فدخلت الى المنتدى  باسم ابني

فهاد حساب ابني لانه يهوى البرمجة

[jjafferr]

20 دقائق مضت, ايمن14 said:

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

حيا الله اصحابنا القدامى 🙂

ارسلت رسالتك للإدارة ، وخلينا نشوف ايش ممكن يعملوه لإرجاع حسابك 🙂

 

جعفر

[ايمن14]

بارك الله فيك استادنا الفاضل

ودائما كنت اتصفح المنتدى

[jjafferr]

32 دقائق مضت, ايمن14 said:

فما اريده  هو ان يتم حفظ صورة بمقاس محدد

ليتناسب مع زر امر

 

هذا الذي عملته انا في احد برنامجي (صورة مرفقة من النموذج)  ، ويدويا استعملت برنامج irfanView لتصغير الصور ، ولكن بدون تغيير اسم الصور التي انزلتها من الانترنت 🙂

.

 

تقدر تستفيد من البرنامج المرفق ، بعرض الصور في من مجلد معين ، ثم تبرمج احد الازرار حتى تحفظ الصورة بالحجم المطلوب ، والمسار والاسم المطلوب 🙂

 

جعفر

FolderImages v3.1.accdb.zip

[ايمن14]

السلام عليكم

بارك الله فيك استادنا جعر

 

[ايمن14]

السلام عليكم

ليس هدا المطلوب

ممكن لم تصل فكرتي بطريقة الصحيحة