استفسار عن كود اظهار مربع الالوان

[yasse.w.2010]

الساده الاساتذه الكرام

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

 

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

هل ممكن افادتي في ذلك 

[Ali Mohamed Ali]

وعليكم السلام-تفضل هذا الكود

Sub ColorPaletteDialogBox()
Dim lcolor As Long
If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then
  'user pressed OK
  lcolor = ActiveWorkbook.Colors(10)
  ActiveCell.Interior.Color = lcolor
Else
  'user pressed Cancel
End If
End Sub

 

[yasse.w.2010]

الف الف شكر استاذ علي

الف شكر منتدى اوفسينا