|
▼ニッキ さん:
こんにちは。&横から失礼します^ ^
>もう少し初心者でもわかるような簡単なもの
...かどうかはわかりませんが
1)ChartObjectsを一時的に追加してそこにコピー。
2)ChartのExportメソッドでjpgファイルを作成。
3)そのファイルをLoadPictureで読み込む。
...というのを見た事があります。
Private Sub UserForm_Click()
Dim sp As Shape
Dim fName As String
fName = ThisWorkbook.Path & "\tmpshp.jpg"
With Sheets("sheet1")
Set sp = .Shapes(1)
With .ChartObjects.Add(, , sp.Width + 5, sp.Height + 5)
.Chart.ChartArea.Border.LineStyle = 0
sp.Copy
.Chart.Paste
.Chart.Export Filename:=fName, Filtername:="jpg"
.Delete
End With
End With
Me.Image1.Picture = LoadPicture(fName)
Set sp = Nothing
End Sub
...な感じ。
『jpgファイルを作成』して良ければの話ですが。
|
|