I had another related question

I can manually get the pic into the comment but when I try to use a
macro to automate the process it keeps getting hung up. I recorded the
following in the exact order:


Code:
--------------------

Sub adpic()

Range("M9").AddComment
Range("M9").Comment.Visible = False
Range("M9").Comment.Text Text:=" :" & Chr(10) & ""
Selection.ShapeRange.Fill.Transparency = 0#
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 = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.BackColor.SchemeColor = 80
Selection.ShapeRange.Fill.UserPicture "C:\1m.jpg"

End Sub
--------------------


but it keeps getting hung up he


Code:
--------------------
Selection.ShapeRange.Fill.Transparency = 0#
--------------------


when I try to execute the macro. Have any ideas?


Thx


--
tx12345
------------------------------------------------------------------------
tx12345's Profile: http://www.excelforum.com/member.php...o&userid=24776
View this thread: http://www.excelforum.com/showthread...hreadid=502228