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

التحكم في حجم الصورة داخل النموذج


jo_2010

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

الخبراء الافاضل 

بعد التحية

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

Untitled.jpg

JO.rar

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

 بالنسبة لشرئط التمرير وعرض الصورة في اطار محدد من معلوماتي وحسب ما جربت يصير بكل أنواع الصور حتى المتحركة أما  صور PDF لا ........ أما اذا أحد الزملاء عنده طريقة يتفضل ....

وكله بيتعلم وأنا منهم .:fff:

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

انشئ نموذج جديد

وا ضف فيه مستعرض ويب

و في حدث عند النقر على قائمة الملفات ضع الكود التالي

Dim wb As Object
Set wb = WebBrowser0.Object        ' ضورة اضافة اسم عنصر التحكم لمستعرض الويب
Dim filelocation As String
filelocation = "C:\Users\File1.pdf"     ' ضع هنا اسم عنصر التحكم الذي يحتوي على اسم الملف لعرضه
wb.silent = True
With wb
    .navigate2 "about:blank"
    Do Until .ReadyState = 4
        DoEvents
    Loop
    .Document.Open
    .Document.write "<!doctype html><html><head><title>my title</title></head><body scroll=""auto"" style=""margin: 0px; padding: 0px;"">" & _
                        "<embed style='padding: 70px;' src=""" & filelocation & """  width=""50%"" height=""100%"" />" & _
                        "</body></html>"
    .Document.close
End With

 

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

في 18‏/11‏/2023 at 00:19, دروب مبرمج said:

انشئ نموذج جديد

وا ضف فيه مستعرض ويب

و في حدث عند النقر على قائمة الملفات ضع الكود التالي

Dim wb As Object
Set wb = WebBrowser0.Object        ' ضورة اضافة اسم عنصر التحكم لمستعرض الويب
Dim filelocation As String
filelocation = "C:\Users\File1.pdf"     ' ضع هنا اسم عنصر التحكم الذي يحتوي على اسم الملف لعرضه
wb.silent = True
With wb
    .navigate2 "about:blank"
    Do Until .ReadyState = 4
        DoEvents
    Loop
    .Document.Open
    .Document.write "<!doctype html><html><head><title>my title</title></head><body scroll=""auto"" style=""margin: 0px; padding: 0px;"">" & _
                        "<embed style='padding: 70px;' src=""" & filelocation & """  width=""50%"" height=""100%"" />" & _
                        "</body></html>"
    .Document.close
End With

 

معلمى الفاضل   دروب مبرمج

امكانياتى محدودة بالبرمجة ممكن لو تكرمت التعديل على النموذج المرفق باعلى

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

  • ابوخليل changed the title to التحكم في حجم الصورة داخل النموذج

اخي الفاضل ، بعد البحث والتقصي لم أجد ما يخفي شريط التمرير في مستعرض الـ PDF ، وذلك من وجهة نظري يعود إلى أنه لو افترضنا أن المرفق أكثر من صفحة !! فكيف سيتم التنقل بين الصفحات في الـ Pdf المعروض ؟؟؟؟؟

 

كذلك الأمر قمت بتجربة الكود التالي ولم يقم بالإخفاء ، هذا من وجهة نظري و إن كان للأساتذة معلومة أخرى فمنهم نستفيد .

Me.WebBrowserControlName.ScrollBars = 0

 

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

14 ساعات مضت, Foksh said:

اخي الفاضل ، بعد البحث والتقصي لم أجد ما يخفي شريط التمرير في مستعرض الـ PDF ، وذلك من وجهة نظري يعود إلى أنه لو افترضنا أن المرفق أكثر من صفحة !! فكيف سيتم التنقل بين الصفحات في الـ Pdf المعروض ؟؟؟؟؟

 

كذلك الأمر قمت بتجربة الكود التالي ولم يقم بالإخفاء ، هذا من وجهة نظري و إن كان للأساتذة معلومة أخرى فمنهم نستفيد .

Me.WebBrowserControlName.ScrollBars = 0

 

اخى الفاضل شكرا للاهتمام معك كل الحق فى ال pdf

ولكن مع الصور اعتقد لن تكون هناك غير صورة واحدة

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

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

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



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

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

Important Information