Option Explicit
 
Private Declare Function TransparentBlt& Lib "msimg32.dll" (ByVal hdcDest&, _
  ByVal nXOriginDest&, ByVal nYOriginDest&, ByVal nWidthDest&, ByVal _
  nHeightDest&, _
  ByVal hdcSrc&, ByVal nXOriginSrc&, ByVal nYOriginSrc&, ByVal nWidthSrc&, _
  ByVal nHeightSrc&, ByVal crTransparent&)
 
Private Sub Command1_Click()
 
Dim Pic1 As PictureBox
 
MSChart1.Visible = False
MSChart1.EditCopy
Me.ScaleMode = vbPixels
Me.AutoRedraw = True
Set Pic1 = Me.Controls.Add("VB.PictureBox", "P1")
With Pic1
  .ScaleMode = vbPixels
  .AutoSize = True
  .AutoRedraw = True
  Set .Picture = Clipboard.GetData
  Call TransparentBlt(Me.hDC, 0, 0, .ScaleWidth, .ScaleHeight, _
    Pic1.hDC, 0, 0, .ScaleWidth, .ScaleHeight, vbWhite)
End With
Me.Controls.Remove Pic1
Me.Refresh
Clipboard.Clear
Set Pic1 = Nothing
 
End Sub

Gruss,

Zardoz