Application.DoubleClick

[Jaafar Tribak]

How to make Application.DoubleClick work for worsheet cells ?

It works for embeeded objects as well as for chart sheets but doesn't seem to carry the doubleclick action on cells as expected.

Any ideas ?

Regards.

 

[mojo249]

Are you using the Private Sub Worksheet_BeforeDoubleClick event?

 

[tusharm]

Hi Jaafar,

What embedded object? I couldn't get it to work with a cell, a chartobject, or a rectangle. This is with 2007.

In a standard module I had

Option Explicit

Dim myAppClass As Class1

Sub doDCtest()
    If myAppClass Is Nothing Then Set myAppClass = New Class1
    Application.DoubleClick
    End Sub

and in the class module Class1 I had

Option Explicit

Dim WithEvents myApp As Application

Private Sub Class_Initialize()
    Set myApp = Excel.Application
    End Sub

Private Sub myApp_NewWorkbook(ByVal Wb As Workbook)
    MsgBox "New WB " & Wb.Name
    End Sub

Private Sub myApp_SheetBeforeDoubleClick( _
        ByVal Sh As Object, _
        ByVal Target As Range, Cancel As Boolean)
    If TypeOf Target Is Range Then
        MsgBox Sh.Name & ", " & Target.Address
    Else
        MsgBox Sh.Name & ", " & TypeName(Target) & ", " & Target.Name
        End If
    End Sub

With a cell selected, a UI double-click triggers the beforeDC code and then allows editing of the cell. Neither happens with the application.doubleclick method. And, with an object selected nothing happens at all (since 2007 doesn't include double-click as a way to edit an object).

How to make Application.DoubleClick work for worsheet cells ?

It works for embeeded objects as well as for chart sheets but doesn't seem to carry the doubleclick action on cells as expected.

Any ideas ?

Regards.

 

[Jaafar Tribak]

Thanks Tushar.

I works for objects selected in excel 2003. I don't have excel 2007 .

I have no idea why the Application has this Method if it does'nt work !

Regards.

 

[tusharm]

Good question, Jaafar. If I can I'll ask someone in Microsoft.