Manipulating AcitveX controls on Worksheet

Hi,

I am trying to develop some drag-n-drop interface for schedules which is easy to operate and updates actual dates in a table.
so far I managed to move an Image ActiveX control, using mouseUp and MouseDown events of the image (and copying massively from this post)

however, I am facing difficulties even storing an ActiveX Label control into a variable
the code below works, but if I define lb as Label, it says "Type mismatch"

defined as "variant" it all works fine, but when I try to change the label position an error appears saying that this object does not support such property

Please Login or Register  to view this content.

Please Login or Register  to view this content.

feel free to try the same file I am working on superShape.xlsm

Hi bagullo,

Try the following

Please Login or Register  to view this content.

Lewis

Hi Lewis,
thanks for your feedback --
indeed using msforms.label solved the 'type mismatch' error
however, I am not quite satisfied with the performance to drag and drop boxes...
but I will post that as a different thread!

thank you!