Arrows & Text Boxes

[Jamey]

I have a workbook, each sheet is protected. Each sheet is a report, which includes inserted images. I would like to be able to use arrows and textbox's to annotate the images in a report. I need help with two parts.
1. I need two individual macros. One to generate an Arrow, and the second to Generate a TextBox. Both formatted black, heave, and 3D as in the example. The macros will be launched from the ribbon, so the objects should be launched in the center of whatever the screen is presently displayed.

2. New reports are generated by a macro that creates a copy of the current report, and deletes data that does not need to be carried over (this include images contained within, and any textbox's / arrows over the images). When new reports are created, I need the TextBox & Arrows to be removed from the new report. So the code would need to be specific for only these two items.

Any help on this would be greatly appreciated!!!! Thanks in advance!

 

[pbornemeier]

Choose Debug, turn on Locals (View | Locals Window) and see what the values of VScreenParameters(0) through (3) are. They should be long numbers representing the rows and columns at the edge of the screen.

This previous code I posted is working on my machine and putting the box and arrow in the center of the screen no mater the zoom or positioning.

This change might help:

    lTopRow = CLng(vScreenParameters(0))
    lBottomRow = CLng(vScreenParameters(1))
    lLeftCol = CLng(vScreenParameters(2))
    lRightCol = CLng(vScreenParameters(3))

although I don't see why it would be needed.

 

[Jamey]

I followed your instructions. The following screen is what I get. Changing the code brought back the same error.

 

[Jamey]

Can I change the numbers in the Views Local window? I've tried to change the values but they do not hold.

 

[pbornemeier]

The views local numbers shows the current values of all variables. If you want to make a temporary change, you can type a statement in the Immediate window. For instance, referencing the above screen, if you typed lRightCol = 25 in the immediate window the value in the locals window would change and if you started executing the code, it would use that value as it executed.