title image


Smiley Re: Xl2000 VBA: Schaltfläche aus Symbolleiste 'Formular'
Hallo,



die sind programmtechnisch etwas umständlich, haben aber durchaus

gewisse Vorteile. So gehts:



Option Explicit

Dim Sh As Shape, s As Integer

Sub Button_enable()

Set Sh = ActiveSheet.Shapes("Button1")

With Sh

.ControlFormat.Enabled = True

.TextFrame.Characters.Font.ColorIndex = 1

End With

End Sub

Sub Button_disable()

Set Sh = ActiveSheet.Shapes("Button1")

With Sh

.ControlFormat.Enabled = False

.TextFrame.Characters.Font.ColorIndex = 15

End With

End Sub



Gruß Manu

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: