Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


35013 / 76732 ←次へ | 前へ→

【46922】Re:画像の貼り付け
発言  Ned  - 07/2/21(水) 18:21 -

引用なし
パスワード
   ▼ニッキ さん:
こんにちは。&横から失礼します^ ^
>もう少し初心者でもわかるような簡単なもの
...かどうかはわかりませんが

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ファイルを作成』して良ければの話ですが。

1 hits

【46863】画像の貼り付け ニッキ 07/2/19(月) 12:04 質問
【46866】Re:画像の貼り付け Kein 07/2/19(月) 13:05 発言
【46869】Re:画像の貼り付け ニッキ 07/2/19(月) 13:33 発言
【46871】Re:画像の貼り付け りん 07/2/19(月) 14:11 発言
【46916】Re:画像の貼り付け ニッキ 07/2/21(水) 16:16 お礼
【46922】Re:画像の貼り付け Ned 07/2/21(水) 18:21 発言
【46926】Re:画像の貼り付け ニッキ 07/2/22(木) 9:31 お礼
【46923】Re:画像の貼り付け りん 07/2/21(水) 19:18 回答
【46925】Re:画像の貼り付け ニッキ 07/2/22(木) 9:29 質問
【46928】Re:画像の貼り付け ニッキ 07/2/22(木) 11:11 質問
【46932】Re:画像の貼り付け りん 07/2/22(木) 13:23 回答
【46934】Re:画像の貼り付け ニッキ 07/2/22(木) 13:48 お礼
【46938】Re:画像の貼り付け りん 07/2/22(木) 16:14 発言
【46872】Re:画像の貼り付け Kein 07/2/19(月) 14:30 回答
【46880】Re:画像の貼り付け ニッキ 07/2/19(月) 16:21 質問
【46882】Re:画像の貼り付け Kein 07/2/19(月) 18:12 回答
【46908】Re:画像の貼り付け ニッキ 07/2/21(水) 15:16 質問
【46910】Re:画像の貼り付け Kein 07/2/21(水) 15:57 発言
【46914】Re:画像の貼り付け ニッキ 07/2/21(水) 16:09 お礼

35013 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free