Excel - BOTON DERECHO

 
Vista:

BOTON DERECHO

Publicado por Rodrigo (3 intervenciones) el 04/04/2007 18:25:05
Quiero desahabilitar la tipica ventana chica cuando haces boton derecho sobre una celda, en la que aparece copiar, pegar, etc. Hago aparecer un listbox con el boton derecho y el evento BeforeRightClick, pero mi idea es que aparezca cuando presiono el boton derecho y desaparezca cuando lo suelto. mi prregunta es ¿SE PUEDE TODO ESTO?. AYUDA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:BOTON DERECHO

Publicado por JuanC (792 intervenciones) el 07/04/2007 16:29:42
No sé si esto es lo que necesitás exactamente, pero puede que te sirva...

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Dim ctl As Object, rng As Range
Set rng = Range("D1:D10")
For Each ctl In Application.CommandBars("cell").Controls
If ctl.Tag = "jc2xxxx" Then ctl.Delete
Next
If Not Application.Intersect(Target, rng) Is Nothing Then
Set cb = Application.CommandBars("cell").Controls.Add(Type:=msoControlComboBox, temporary:=True)

With cb
.AddItem "uno"
.AddItem "dos"
.AddItem "tres"
.OnAction = "MyMacro"
.BeginGroup = True
.Tag = "jc2xxxx"
.Text = "Elija un Nº..."
End With
Set Cell = Target
Else
Set Cell = Nothing
End If
Set rng = Nothing
End Sub

En un módulo el siguiente código:

Public cb As Office.CommandBarComboBox
Public Cell As Range

Sub MyMacro()
On Error Resume Next
Cell.Value = cb.List(cb.ListIndex)
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar