Shrink to fit

[حكمت العراقي]

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

[kanory]

وعليكم السلام .... انظر الصورة ......

 

[حكمت العراقي]

اشكرك 

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

مثل الاكسل 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:

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

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

بار الله بك

 

تم تعديل يوليو 6, 2020 بواسطه محمد التميمي

[حكمت العراقي]

هل هذا يعني انه لا يوجد حل الا بكتابة الكود