|
Copia e Salva l'immagine di una mschart
Private Sub Command1_Click() MSChart1.EditCopy Picture1.Picture = Clipboard.GetData(vbCFMetaFile) SavePicture Picture1.Picture, "C:\Image1.wmf" End Sub And here’s a reusable routine: Sub SaveMSChart(graph as MSChart, pic as PictureBox, ByVal fileName As String) ' copy the graph into the clipboard graph.EditCopy ' paste the clipboard’s content into the PictureBox pic.Picture = Clipboard.GetData(vbCFMetaFile) ' save to file SavePicture pic.Picture, fileName End Sub Private Sub Command1_Click() Dim MatriceTrid(1 To 5, 1 To 3) For I = 1 To 5 MatriceTrid(I, 1) = I & " " & I * 2 'prima serie MatriceTrid(I, 2) = I 'seconda serie MatriceTrid(I, 3) = I * 2 'terza serie Next I MSChart1.ChartData = MatriceTrid End Sub |