Macro to do text shading

How is it possible to shade a text with the cursor by using a macro? The shading must be done by holding down the left mouse button and moving the cursor over the text. I cannot find the VBA code to do this.
Thank you.