Bir düğmeye 2 makro

[Leoncio]

Arkadaşlar merhaba;

Ekte örneğini iliştirdiğim dosyada bir düğmeye 2 makroyu nasıl yapabilirim?

Aç ve Gizle olarak

 

[Mahmut Kök]

Sub ac()
If ActiveSheet.Shapes("AutoShape 3").Visible = True Then
For Y = 250 To 0 Step -4
DoEvents
ActiveSheet.Shapes("AutoShape 3").Height = Y
Next
ActiveSheet.Shapes("AutoShape 3").Visible = False
Else
ActiveSheet.Shapes("AutoShape 3").Visible = True
For Y = 0 To 250 Step 4
DoEvents
ActiveSheet.Shapes("AutoShape 3").Height = Y
Next
End If
End Sub

 

[Leoncio]

Teşekkürler.