Diagramm in Jpeg speichern

Sub DiagrammExportieren()
Dim strGrafikName As String
strGrafikName = Application.GetSaveAsFilename( _
"diagramm", FileFilter:="GIF-Format (*.gif)," & _
" *.gif,JPG-Format (*.jpg), *.jpg")
On Error GoTo ErrorHandler
ActiveChart.Export Filename:=strGrafikName, _
FilterName:=Right(strGrafikName, 3)
Exit Sub
ErrorHandler:
If Err.Number = 91 Then
MsgBox "Export nicht möglich. " & _
"Sie haben kein Diagramm ausgewählt.", _
vbCritical + vbOKOnly, _
"Diagramm als Grafik exportieren"
Else
MsgBox "Der folgende Fehler ist aufgetreten: " & _
Err.Number & " - " & Err.Description, vbCritical + _
vbOKOnly, "Diagramm als Grafik exportieren"
End If
End Sub

So nun hab ich aber in diesem Diagramm noch Textfelder für die Legende und andere Symbole eingebaut die ich natürlich mitdrucken möchte! Ist das möglich ? Wenn ja wie
Gruß