MS Excel
Téma: Uživatelská nabídka 
Zaslal/a Richard99 10.2.2012 16:25
Dobrý den,
tohlento jsem vygooglil. Přidá to nabídku napravý click myši. Funguje to bezvadně jenom bych potřeboval volat proceduru s parametrem.
asi něco ja ko toto
.OnAction = "Kalibrace_plna(Bunka)"
ale to nefunguje. Zatím jsem to vyřešil
Public Bunka as Range
a voláním bez parametru
Chyby způsobené globálními proměnnými se špatně hledají, proto bych se tomuradši vyhnul.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim cBut As CommandBarButton
Set Bunka = Target
On Error Resume Next
With Application
.CommandBars("Cell").Controls("Kalibrace plna").Delete
Set cBut = .CommandBars("Cell").Controls.Add(Temporary:=True)
End With
With cBut
.Caption = "Kalibrace plna"
.Style = msoButtonCaption
.OnAction = "Kalibrace_plna"
End With
On Error GoTo 0
End Sub
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články