copier coller mschart vers wordRésolu

Question

Bonjour &#224; tous, j'ai un petit probleme : je voudrais pouvoir mettre un mschart dans le presse papier pour pouvoir le coller ensuite sous word. 
Pour l'instant je fais :

MSChart1.EditCopy
Picture1.Picture = Clipboard.GetData()
Clipboard.SetData Picture1.Image, vbCFBitmap

Le probl&#232;me c'est que quand je colle sous word &#231;a me met tous les chiffres de la matrice du graphe, au lieu de me mettre l'image. Par contre sous paint &#231;a marche bien.
 Quelqu'un a une id&#233;e ?

johanna

mrdep1978 · Accepted Answer

Dans word, il ne faut pas faire coller, mais collage sp&#233;cial, et l&#224; il te propose de le coller sous forme d'image

lefouman · Answer

Merci, je vous donne ce que j'ai trouv&#233; au cas ou &#231;a interesserai quelqu'un :

Private Sub copierGraphe()
Dim chartDC As Long
Picture1.Width = MSChart1.Width
Picture1.Height = MSChart1.Height
chartDC = GetDC(MSChart1.hwnd)
StretchBlt Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, chartDC, 0, 0, MSChart1.Width, MSChart1.Height, SRCCOPY
End Sub        

Private Sub mnu_clipboard_Click()
Clipboard.Clear
DoEvents
copierGraphe
DoEvents
Clipboard.SetData Picture1.Image, vbCFBitmap
End Sub

Copier coller mschart vers word

2 réponses

Discussions similaires