[look_b4u_leap]

Hi: I'm looking for a macro (preferably just one I record, not vba) that will show a picture (a jpeg image) in my document when I run it. When I run a second macro, it will hide the picture. How can I do this? I tried to record a macro that does this, but I can't select the object when I'm in the record mode. Heeeeeeeelp! Thanks

[OBP]

What program are you using?

[look_b4u_leap]

I'm a doofus! I stuck it in the tags but neglected to mention it in my post, haha.

Word 2007

[OBP]

Well I don't know about Word, but in Access and Excel you can use an Image and set it to nothing by setting it's source to "". Or you can just set it to Visible = No in Access.

[look_b4u_leap]

I know how to do it in those other programs, too...I need it in Word

[slurpee55]

Well, one idea would be to insert an auto-shape rectangle over your picture that is 0% transparent, change the border to no border, and then convert it to 100% transparent, as I did with the following macro:

Sub Macro2()
'
' Macro2 Macro
'
    ActiveDocument.Shapes("Rectangle 2").Select
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Transparency = 1#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.Left = 6.45
    Selection.ShapeRange.Top = 10.05
    Selection.ShapeRange.RelativeHorizontalPosition = _
        wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = _
        wdRelativeVerticalPositionParagraph
    Selection.ShapeRange.Left = InchesToPoints(-0.01)
    Selection.ShapeRange.Top = InchesToPoints(-0.02)
    Selection.ShapeRange.LockAnchor = False
    Selection.ShapeRange.LayoutInCell = True
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
    Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
    Selection.ShapeRange.WrapFormat.DistanceRight = InchesToPoints(0.13)
    Selection.ShapeRange.WrapFormat.Type = 3
    Selection.ShapeRange.ZOrder 4
End Sub

However, please note that the sizes and location are just for the picture I was using - you would have to build your own macro.

Oh, and I used Word 2003, but the idea should still be the same.