[mate05]

#vba #excel
Czesc. Potrzebuje wylaczyc przyciski po kliknieciu. Obecnie robie to tak. ale dziala to tylko dla jednego przycisku. Jak odwolac sie do wszystkich?

ActiveSheet.Shapes("Przycisk 94").OnAction = Empty
ActiveSheet.Shapes("Przycisk 94").DrawingObject.Font.ColorIndex = 16

[Polinik]

@mate05:

Wyłączyć w sensie "zniknąć"?

Sub HideShapes_ActiveSheet()
Dim shp

[mate05]

@Polinik: Właśnie nie. Chodzi o to by przycisk pozostał ale był nieklikalny coś jak .enabled = false , które swoją drogą też nie działa.

[Polinik]

@mate05:
To tak samo.
Tylko zmieniasz shp.Visible = False na shp.OnAction = Empty.
Tylko kurczę coś nie mogę wyłapać, jak zmienić kolor tekstu -- bo

shp.DrawingObject.Font.ColorIndex

[mate05]

@Polinik: Wielke dzięki tylko chyba niezbyt jasno się wyraziłem. Chodzi mi o to aby każdy przycisk "deaktywował" tylko siebie a w twoim kodzie wyłączam wszystkie przyciski w arkuszu.

próbowałem tak:

Dim shp As Shape
shp.OnAction

[Polinik]

@mate05:
A nie działa po prostu powielenie tych dwóch linijek dla każdego przycisku z osobna, z nazwą każdego przycisku?

ActiveSheet.Shapes("Przycisk 95").OnAction = Empty
ActiveSheet.Shapes("Przycisk 95").DrawingObject.Font.ColorIndex =

[mate05]

@Polinik: Już sobie poradziłem. Łap plusa za pomoc i kod, może przyda Ci się kiedyś.

Sub Button1_Click()
DisableButton Sheet1, ActiveSheet.Shapes(Application.Caller).Name
End