VBA Dragging a shape with Macro assigned to it...

[hakanfa]

Hi All,
I have the following problem - Working with a project where I generate pictures and the pictures (Shapes) are assigned a macro that deletes the picture when clicked on a certain place on the picture. This works well - but when assigning a macro to the picture - the ability to move the picture by dragging is gone. Is there a way to restore it?

All possible ideas very welcome!


Best regards,
Hakan

 

[diddi]

as in because you click the picture, it deletes, or that the drag event does not work any more

 

[hakanfa]

as in because you click the picture, it deletes, or that the drag event does not work any more

Hi,
the click-to-delete works fine - that is basically a if..then .else thing, but what I need is the ability to activate drag-drop if the user click on a position that will not delete the picture. This can be easily simulated by adding a shape - assign a random macro with like this:
Sub DemoClick()
Dim CallerShape As Shape: Set CallerShape = ActiveSheet.Shapes(Application.Caller)
If CallerShape.Fill.ForeColor.RGB = RGB(0, 0, 0) Then
MsgBox "Hello"
End If
End Sub

If the shape is black - you get a message "Hello" if not - nothing happens.. if the shape is not black I want to drag it to another position - that is not possible as there is a macro assigned the drag-drop is not activated on mouse-click. I know - the right click will do it but I would like to activate such possibility that click-and-hold would activate the drag-drop feature.

Br
Hakan

 

[Jaafar Tribak]

Is this what you want ?

Sub DemoClick()
    Dim CallerShape As Shape: Set CallerShape = ActiveSheet.Shapes(Application.Caller)
        If CallerShape.Fill.ForeColor.RGB = RGB(0, 0, 0) Then
        MsgBox "Hello"
    Else
        CallerShape.Select
    End If
End Sub

 

[hakanfa]

Is this what you want ?

Sub DemoClick()
    Dim CallerShape As Shape: Set CallerShape = ActiveSheet.Shapes(Application.Caller)
        If CallerShape.Fill.ForeColor.RGB = RGB(0, 0, 0) Then
        MsgBox "Hello"
    Else
        CallerShape.Select
    End If
End Sub

Gosh.. how did I miss that.. Jaafar, you seem to have a solution for all problems
Thank you for helping me out!

-HAkan