laufzeitfehler '5'
11.05.2005 14:12:08
pippo
kann jemand bitte auf ihr Rechner der Code laufen lassen und mir sagen ob es richtig läuft.
bei mir kommt ein Laufzeitfehler '5'... die ich nicht verstehen kann.
danke
Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim objBar As CommandBar
Dim objButton As CommandBarButton
Dim chb As Shape
Cancel = True
On Error Resume Next
Application.CommandBars("CheckBoxes").Delete
On Error GoTo 0
Set objBar = Application.CommandBars.Add("CheckBoxes", msoBarPopup)
For Each chb In ActiveSheet.Shapes
If Left(chb.Name, 12) = "OptionButton" Then
Set objButton = objBar.Controls.Add
With objButton
.Caption = chb.Name
.OnAction = "Positionieren"
.Style = msoButtonCaption
End With
End If
Next chb
objBar.ShowPopup
End Sub
der Code ist von H.W. Herber!!