Tarih: 15 Nisan 2023

VBA Activex Buton Caption Change


Sub SPR_Düğme130_Tıkla()

Dim ws As Worksheet
Set ws = Sheets("SPR")

If ws.Shapes("Düğme 130").OLEFormat.Object.Caption = ".." Then
ws.Shapes("Düğme 130").OLEFormat.Object.Caption = "**"
Else
ws.Shapes("Düğme 130").OLEFormat.Object.Caption = ".."
End If

End Sub

Konu başlığına konu olan kod :


Worksheets("Sayfa Adı").Shapes("Buton Adı").OLEFormat.Object.Caption="Ne yazmak isterseniz"
Paylaşmayı unutmayın!

Excel VBA

Activex Button Button Caption Shape Button

5 1 vote
Article Rating
Subscribe
Bildir
guest
0 Yorum
Inline Feedbacks
View all comments