AW: PivotChart-Feld-Schaltflächen
05.01.2008 19:45:06
Herby
Hallo Bernd,
ich habs mal an einem kleinen Muster mit folgendem Code probiert:
Sub PTab2()
Dim pvtTable As PivotTable
Dim pvtField As PivotField
Set pvtTable = ActiveSheet.PivotTables(1)
Set pvtField = pvtTable.RowFields(1)
pvtField.EnableItemSelection = False
End Sub
Damit funktionierts. Wenn ein Anwender den Button mit Doppelklick aktiviert,
kommt ein Auswahlmenü. Soll dies auch unterbunden werden, dann so z.B.:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.Undo
End Sub
Vielleicht klappts auch bei dir.
Viele Grüße
Herby