Hoe zonder select de knoptekst lezen.

[ExcelAmateur]

Hallo helpers,

Ik wil zonder select laten lezen wat er als tekst op de knop staat.

Sub Tonen()
ActiveSheet.Shapes("Button 18").Select
  If Selection.Characters.Text = "Te gebruiken cijfers tonen" Then
....
End sub

Ik heb het al zo geprobeerd maar krijg dan een fout melding.

Sub Tonen
If ActiveSheet.Shapes("Button 18").Characters.Text = "Te gebruiken cijfers tonen" Then
....
End Sub

Al vast bedankt vor de info.

 

[E v R]

Probeer het zo eens:

Sub Tonen()
If ActiveSheet.Shapes("Button 18").OLEFormat.Object.Caption = "Te gebruiken cijfers tonen" Then
....
End Sub

 

[Jack Nouws]

Hallo,

Een voorbeeldje

Sub test()
  With ActiveSheet.Shapes("Button 18").OLEFormat.Object
    If .Caption = "Te gebruiken cijfers tonen" Then
        Sheets("Blad1").Columns("B:E").Hidden = False
       .Caption = "Te gebruiken cijfers verbergen"
    Else
        Sheets("Blad1").Columns("B:E").Hidden = True
       .Caption = "Te gebruiken cijfers tonen"
    End If
  End With
End Sub

Met vr gr
Jack

 

[ExcelAmateur]

E v R,

Bedankt voor de code maar helaas werkt het niet.

Jack Nouws,

Bedankt voor de code deze werkt en kan hem nu gaan aanpassen. :thumb:

 

[E v R]

E v R,
Bedankt voor de code maar helaas werkt het niet.

Code was, net als #post1 uiteraard ook niet compleet, het gaat om: OLEFormat.Object.Caption

Maar je hebt de boel werkend en daar gaat het om :thumb:

 

[ExcelAmateur]

E v R,

Code was, net als #post1 uiteraard ook niet compleet, het gaat om: OLEFormat.Object.Caption

Daar heb je gelijk in dat de code niet compleet was.
Hij gaf op deze regel al een fout melding.
OLEFormat.Object - hier was ik niet opgekomen en had dus nog lang kunnen puzzelen.

Nogmaals dank voor de geboden hulp.

 

[WHER]

Hier vind je een zeer verhelderende "case study" over dit onderwerp.
http://www.tushar-mehta.com/excel/vba/vba-embedded or linked objects.htm

 

[ExcelAmateur]

WHER
Hier vind je een zeer verhelderende "case study" over dit onderwerp.
http://www.tushar-mehta.com/excel/vb... objects.htm

Bedankt voor de info, ga het eens op mijn gemak bekijken.