چارت سازمانی

[art1364]

با سلام
در اکسل امکان چارت سازمانی وجود دارد که بتوانیم با کلیک روی سر مجموعه، اعضای زیر مجموعه آن نمایش داده شود.
مثلا تعریف کنیم در نگاه اول مدیر و معاونین نشان داده شود بعد با کلیک روی هر معاون مدیرانش را نشان دهد و با کلیلک روی مدیران اعضای زیر مجموعه آن را

[mokaram]

منظور شما رسم چارت هست یا نحوه نمایش چارت. اینها دو مقوله جداست. لطفا بیشتر توضیح دهید

[art1364]

منظور شما رسم چارت هست یا نحوه نمایش چارت. اینها دو مقوله جداست. لطفا بیشتر توضیح دهید

چارت رسم شده ولی به دلیل شلوغ بودن تصمیم گرفتم که کاری بشود که با کلیک روی باکس مربوطه زیر مجموعه آن باز شود و با کلیلک روی همان باکس زیر مجموعه آن نمایش داده نشود البته یه کد پیدا کردم این کار را می کنه اما باید دو کلید مجزا براش بزارم و از لحاظ گرافیکی زشت میشه

Private Sub CommandButton1_Click()
ActiveSheet.Shapes("Group 10").Visible = False
End Sub
Private Sub CommandButton2_Click()
ActiveSheet.Shapes("Group 10").Visible = True
End Sub