Outlook 2010 put red elipse on image pasted in email, while editing it

[DougP]

I created this macro for Word and have used it for years. I need to know where to place code in Outlook developer?
I currently have it under the following section in the VB editor.

- Project1 (VbaProject.OTM)
- Microsoft Outlook Objects
ThisOutLookSession

But it does nothing that I can see. I put a stop in and it does not run.
Where do I need to put so the buttono on the Quick Access tool bar in the email editor window makes a red elipse.
I can add a red elipse by clicking the ribbon then insert > shapes and find it there but then I have to change fill none, and the color to red and size, etc and it take a long time.

Sub RedElipse()
'
' RedElipse Macro
' Macro recorded 1/13/2011 by dposton
' this creates and autoshape of a red elipese with  no fill color
    ActiveDocument.Shapes.AddShape(msoShapeOval, 250#, 160, 54#, 27#) _
        .Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.Transparency = 1
    Selection.ShapeRange.Line.Weight = 1.5
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0)
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.Left = 200#
    Selection.ShapeRange.Top = 160#
    Selection.ShapeRange.RelativeHorizontalPosition = _
        wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = _
        wdRelativeVerticalPositionParagraph
End Sub



DougP