اذهب الي المحتوي
أوفيسنا

Shrink to fit


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

السلام عليكم ورحمة الله وبركاته
سؤالى عن كيفية ضبط النص داخل مربع النص بحيث يظهر فى التقرير متناسب مع حجم مربع النص - بمعنى آخر كيف اجعل النص يتلائم من حيث الحجم مع مربع النص كما فى الاكسل ،،،،،
يوجد فى تنسيق الخلايا بالاكسل خاصية shrink to fit ، هل يوجد بالاكسس خاصية مثلها لضبط النص فى الطباعة .
ولكم جزيل الشكر

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

اشكرك 

لقد حصلت على كود يقوم بذلك ولكن ما كنت اريده هو تغيير في اعدادات معينة فقط

مثل الاكسل shrink to fit

لدي نسخة ولكن معمول بكود وحجمه ١.١٩mB

اكثر من المسموح

 

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

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

هناك فكرة تعتمد على عدد ارقام او حروف مربع النص وبناءاً عليه يتم تغيير حجم الخط

مثال

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

	If Len(Me.TextBox1) >= 11 Then
	   Me.TextBox1.FontSize = 11
	Else
	   Me.TextBox1.FontSize = 13
	End If

End Sub

تحياتي

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

اشكرك استاذ محمد أبوعبدالله

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

ولكن السؤال الا يوجد خيار (option) للحقل للقيام بذلك كما في الاكسل Shrink to fit

Shrik-to-fit-or-AutoResizeFont.accdb

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

الحقيقة الكود روعة جدا ويعمل بكفاءة

2 ساعات مضت, حكمت العراقي said:

ولكن السؤال الا يوجد خيار (option) للحقل للقيام بذلك كما في الاكسل Shrink to fit

جرب المرفق وارجو ان يكون طلبك

Shrik-to-fit-or-AutoResizeFont.rar

تحياتي

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

منذ ساعه, حكمت العراقي said:

استاذ محمد أبوعبدالله

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

بار الله بك

 

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

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

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



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

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

Important Information