كود لتلوين شكل

[samycalls2020]

السلام عليكم ..

هل يمكن اضافة للكود بحيث يتم تغير لون الشكل مع لون الكلمة

 

زر مزدوج.xlsm

[سليم حاصبيا]

Try This Macro

Sub Button02()

ActiveSheet.Shapes.Range(Array("مستطيل 1")).Select
If Selection.Text = "إخفاء الصفوف" Then
    Rows("5:20").EntireRow.Hidden = True
        With Selection
          .Font.ColorIndex = 2
          .Text = "إظهار الصفوف"
          .ShapeRange.Fill.ForeColor.RGB = _
           RGB(255, 0, 0)
        End With
Else
    Rows("5:20").EntireRow.Hidden = False
        With Selection
          .Font.ColorIndex = 3
          .Text = "إخفاء الصفوف"
          .ShapeRange.Fill.ForeColor.RGB = _
           RGB(209, 255, 0)
        End With
End If
[A1].Select

End Sub

 

[samycalls2020]

طلب أخير استاذ / سليم .. أن سمحت لى

أضفت زر أخر لنفس الماكرو 

والمراد .. هو أن يعمل الزران معاً بنفس الماكرو ويتغير نصهما ولونهما معاً بالضغط على أى منهما .

زر مزدوج2.xlsm

[سليم حاصبيا]

اللغة العربية دائما ما تسبب مشاكل في الاكواد (انصح بعدم استعمالها)

لذلك تم تغيير اسماء الازرار الى  SHP_1  و  SHP_2

الكود

Sub Button02()


Dim arr(1), i%
arr(0) = "SHP_1": arr(1) = "SHP_2"
For i = 0 To 1
    ActiveSheet.Shapes.Range(Array(arr(i))).Select
'     +++++++++++++++++++++++++++++
     If Selection.Text = "Show" Then
    Rows("5:20").EntireRow.Hidden = False
        With Selection
          .Font.ColorIndex = 2
          .Text = "Hide"
          .ShapeRange.Fill.ForeColor.RGB = _
           RGB(192, 0, 0)
        End With
Else
    Rows("5:20").EntireRow.Hidden = True
        With Selection
          .Font.ColorIndex = 6
          .Text = "Show"
          .ShapeRange.Fill.ForeColor.RGB = _
           RGB(0, 0, 255)
        End With
End If

   
     '++++++++++++++++++++++++++++++++
   

   Next
[A1].Select
End Sub

الملف مرفق

Double_but.xlsm

[samycalls2020]

السلام عليكم .. مرة أخرى وإن شاء الله أخيرة فى هذا الموضوع

إن أذن لى استاذ / سليم.. 

Double_but2.xlsm

[samycalls2020]

للرفع