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

[أبو عبد الرحمن سعيد]

بسم الله الرحمن الرحيم

وبه نستعين

الساده الزملاء الافاضل

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

نرجو توضحيا عمليا بتحويل قياس الاعمدة والصفوف من

البكسل الى السنتيمتر مشفوعا بصور توضيحية كى يتسنى

لمن ليس لديه فكرة بتنفيذ ذلك الامر

دمتم جميعا فى رعاية الله

وجزاكم الله خيرا

[الـعيدروس]

السلام عليكم

اخي سعيد جرب هذه الأداة CentimetersToPoints ربما تجد ضالتك بها

جرب هذا الكود ( في مودويل )

Sub A()

Columns(1).ColumnWidth = Application.CentimetersToPoints(1)

Rows(1).RowHeight = Application.CentimetersToPoints(1)

End Sub

[رجب جاويش]

الأخ الحبيب / سعيد بيرم

تفضل شرح فى الملف المرفق أرجوأن يكون مفيدا

القياس بالسنتيمتر.rar

[رجب جاويش]

أخى الحبيب / سعيد

وهذا كود لمعرفة أبعاد الخلية النشطة بوحدة الملليمترات

Sub Test()

	MsgBox "Row height is " & ActiveCell.EntireRow.Height / 72 * 25.4 & " mm"

	MsgBox "Column width is " & ActiveCell.EntireColumn.Width / 72 * 25.4 & " mm"

End Sub

معرفة ابعاد الخلية النشطة بالملليمترات.rar

[رجب جاويش]

أخى الحبيب / سعيد

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

تحويل الى سم.rar

[الـعيدروس]

السلام عليكم

جرب هذا الكود

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

Sub AA()

On Error Resume Next

Dim XX As Integer

' *************************************

' حدد بالماوس الخلايا المراد تحويلها ثم فعل الكود

'

XX = Application.InputBox("عرض الصفوف", "officena")

If XX Then

Selection.RowHeight = Application.CentimetersToPoints(XX)

End If

XX = Application.InputBox("عرض الأعمدة", "officena")

If XX Then

Selection.ColumnWidth = XX * 4.663

End If

End Sub

[الـعيدروس]

السلام عليكم

الاخ الاستاذ رجب جاويش

الشرح سهل للفهم

وفقك الله