[حل شده] غیر فعال شدن shape در صورت اجرا شدن یک شرط

[armani]

سلام و عرض ادب خدمت دوستان و اساتید محترم
احتراما، نیازمند راهنمایی در خصوص کد نویسی محیط vb هستم.
می خواهم با قرار دادن شرطی برای یک shape چند تا از shape های دیگر فایل را غیر فعال کنم به گونه ای که ان shape ها نمایش داده شوند اما فعال نباشد و حال با کلیک روی آنها پیغامی نیز نمایش داده شود.
باتشکر

[misammisam]

سلام
فکر کنم منظورتون از غیر فعال شدن shape ، ماکرویی هست که به اون وصله .
با یه IF ساده میتونید به منظورتون برسید .
یه ماژول درست کنید و کدهایی مثل زیر داخلش بزنید ( به فرض اینکه 4 تا shape داریم )

Public color As String

Sub Black()
If (color = "Yellow" Or color = "") Then
Sheet1.Range("c2").Value = "˜áíÏ ÓíÇå ˜áí˜ ÔÏ"
Else
MsgBox "Çíä ˜áíÏ ÛíÑ ÝÚÇá ÇÓÊ"
End If
End Sub

Sub Blue()
If (color = "Yellow" Or color = "") Then
Sheet1.Range("c2").Value = "˜áíÏ ÂÈí ˜áí˜ ÔÏ"
Else
MsgBox "Çíä ˜áíÏ ÛíÑ ÝÚÇá ÇÓÊ"
End If
End Sub

Sub Green()
color = "Green"
Sheet1.Range("c2").Value = "˜áíÏ ÓíÇå æ ÓÝíÏ ÛíÑ ÝÚÇá ÔÏä"
End Sub

Sub Yellow()
color = "Yellow"
Sheet1.Range("c2").Value = "˜áíÏ ÓíÇå æ ÓÝíÏ ÝÚÇá ÔÏä"
End Sub 

[armani]

بسیار سپاسگزارم