[حل شده] استفاده از Shape به جای کلید ActiveX Control !

[Skynet]

با سلام و احترام
یک سوال ساده!
اگر بخواهیم به جای استفاده از کلید ActiveX Control، برای فراخانی یک UserForm ، از Shape استفاده کنیم به چه صورتی بایستی عمل کنیم ؟!

تکمیلی :

کد مورد نظر برای فراخانی فرم مربوطه از طریق کلید ActiveX Control به صورت زیر می باشد :

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

برای فراخانی فرم از طریق Shape به چه صورتی بایستی عمل کنیم ؟!
متشکرم.

[ne&in]

با سلام و احترام
یک سوال ساده!
اگر بخواهیم به جای استفاده از کلید ActiveX Control، برای فراخانی یک UserForm ، از Shape استفاده کنیم به چه صورتی بایستی عمل کنیم ؟!

تکمیلی :

کد مورد نظر برای فراخانی فرم مربوطه از طریق کلید ActiveX Control به صورت زیر می باشد :

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

[ATTACH=CONFIG]14695[/ATTACH]

برای فراخانی فرم از طریق Shape به چه صورتی بایستی عمل کنیم ؟!
متشکرم.

با سلام و احترام
فکر میکنم اول باید shape مورد نظر رو که ایحاد کردین روش راست کلیک کنید و روی گزینه ی assign macro کلیک میکنید و یک پنجره باز میشه که هر نامی میخواین میذارید برای shape و new رو میزنید و در صفحه ای برای نوشتن کد باز میشه در vba که اونجا کد نمایش اون یوزر فرم رو تایپ میکنید :

مثلا
Sub help()
userform1.show
End Sub

فایل

USE SHAPE

[Skynet]

با سلام و احترام
بسیار عالیییی، خیلی ممنونم