التحكم فى الفورمات الخاص بالكمبوبوكس

[Mohammad Shawkey]

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

برجاء المساعده فى توضيح كيفيه التحكم فى الفورمات الخاص بالكمبوبوكس من داخل الاكسيل بدون اكواد

ولحضراتكم جزيل الشكر والاحترام

Combo box.rar

[الـعيدروس]

حسب معلوماتي النوع الذي في الشيت

ليس لهو فورمات

عملت كود تغير لون الخط والحجم للكمبوكس

ولم يأثر بشيء

Sub Shape_A()

Dim Sh_A As Shape

On Error Resume Next

Set Sh_A = Sheet1.Shapes(1)

With Sh_A.TextFrame

    .VerticalAlignment = xlVAlignCenter

    .AutoSize = True

End With

With Sh_A.Line

    .BackColor.RGB = RGB(25, 0, 0)

    .ForeColor.RGB = RGB(25, 255, 0)

    .Weight = 12

End With

Sh_A.Fill.ForeColor.RGB = RGB(255, 255, 0)

End Sub

[زوهير]

السلام عليكم

بعد اذن الاخ عباد

ربما يساعدك هذا الحل

Combo box1.rar