Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Przycisk ?
anonim




Typ: Nie zarejestrowany
Przycisk ?

Cześć !!!!!!!!1
Jak w excelu dodać do aktywnego skoroszytu przycisk a następnie móc w nim zmienić text ????
Niby makro rejestruje się ale myślę że można łatwiej to zrobić bez zaznaczania przycisku.

NARA

15-02-2005 14:33
  
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Jeśli masz na myśli przycisk z paska narzędzi Formularze to można np tak:

Dim oButt As Shape
On Error Resume Next
With ThisWorkbook.Worksheets("costam" )
    '''' sprawdzenie czy jest przycisk
    Set oButt = .Shapes("cmdKaro" )
    If oButt Is Nothing Then
        '''' dodanie
        With .Buttons.Add(50, 89.25, 49.5, 38.25)
            .Name = "cmdKaro"
            .OnAction = "cmdScroll_Kliknięcie"
            .Characters.Text = "Nazwa"
       
        End With
    End If
        '''' dalej odwołania np

        MsgBox .Shapes("cmdKaro" ).Name
        .Buttons("cmdKaro" ).Caption = "Ala ma kota"
        MsgBox .Buttons("cmdKaro" ).Caption
        MsgBox .Buttons("cmdKaro" ).Text
        .Buttons("cmdKaro" ).Text = "I2 psy"
        MsgBox .Buttons("cmdKaro" ).Characters.Text
End With
End Sub


_____________________________________________
Karolina

15-02-2005 22:03
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1