[حل شده]
پنهان و آشکار کردن shape با استفاده از شرط در ماکرو
سلام چطور میشه یه shape را بسته به شرط پنهان و آشکار کرد ممنون
[SIZE=4][COLOR=#008000][FONT=tahoma]هر کس خود رأی شد هلاک می شود و آنکه با افراد صاحب نظر مشورت کند در عقل آنها شریک شده
حضرت امیر علیه السلام[/FONT][/COLOR][/SIZE]
با سلام
اگر سل a1 مساوی 10 بود مخفی و اگر 20 بود نمایش داده میشود.
کد:
[LEFT]
Private Sub CommandButton1_Click()
If Range("a1").Value = 10 Then
ActiveSheet.Shapes("Picture 2").Visible = False
ActiveSheet.CommandButton1.Caption = "äãÇíÔ"
ElseIf Range("a1").Value = 20 Then
ActiveSheet.Shapes("Picture 2").Visible = True
ActiveSheet.CommandButton1.Caption = "ãÎÝí"
End If
End Sub
[/LEFT]
کامنت