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

Zaslat odpověď >

Nebyly zaslány žádné odpovědi.

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.