السلام عليكم
هذه طريقة اخرى
جعلنا التاكست ياخذ الفورمات التالية من الخلية
1- محاذاة النص
2- عرض الخط
3- مقاس الخط
4- اسم الخط
With Worksheets(Mysh_Name).Cells(iRo, i)
MyTxt.TextAlign = Me.kh_TextAlign(.HorizontalAlignment)
MyTxt.Font.Bold = .Font.Bold
MyTxt.Font.Size = .Font.Size
MyTxt.FontName = .Font.Name
End With
اضافة الى ذلك ياخذ طول صف الخلية
MyHght = .Rows(ii).RowHeight
هذا و تقبلوا تحياتي وشكري
Listbox Form6.rar