Hi,

I have the following code that inserts images into a comment. It has always worked fine for me until I upgraded from office 2000 to 2003. Using office 2003 the code crashes on "ch.Chart.Export sFile". Does anyone have any idea why? Am i missing an add in or something?


Sub PictureIntoComment()
Dim ch As ChartObject
Dim dWidth As Double
Dim dHeight As Double
Dim ws As Worksheet
Dim sName As String
Dim cmt As Comment
Dim sPath As String
Dim sFile As String
Dim rng As Range
Set ws = ActiveSheet
Set rng = ActiveCell
sPath = ThisWorkbook.Path & "\"
If sName = "" Then sName = "0"
sFile = sPath & sName & ".jpeg"

    dWidth = Selection.Width
    dHeight = Selection.Height
    Selection.Cut
    Set ch = ws.ChartObjects.Add(Left:=rng.Left, Top:=rng.Top, _
      Width:=dWidth, Height:=dHeight)
    ch.Chart.Paste
    rng.Activate
    ch.Chart.Export sFile
    ch.Delete
    Set cmt = rng.AddComment
    cmt.Text Text:=""
    With cmt.Shape
      .Fill.UserPicture sFile
      .Width = dWidth
      .Height = dHeight
    End With
End Sub