Excel VBA質問箱 IV

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

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


24759 / 76732 ←次へ | 前へ→

【57320】Re:シートに挿入されている写真をjpgとして取り出す方法
発言  Yuki  - 08/8/7(木) 13:49 -

引用なし
パスワード
   ▼とも さん:
>シート1に挿入されている写真をjpgとしてデスクトップに取り出す方法は
>無いのでしょうか?
>有れば教えていただけないでしょうか?
>宜しくお願いいたします。

こんにちは。
簡単にこんな感じでしょうか

Sub Macro1()
  Dim cObj  As ChartObject
  Dim sW   As Single
  Dim sH   As Single
  
  ' 選択された画像をコピー
  With Selection
    .CopyPicture Appearance:=xlScreen, Format:=xlPicture
    sW = .Width
    sH = .Height
  End With
  
  Set cObj = ActiveSheet.ChartObjects.Add(0, 0, sW, sH)
  With cObj
    .Chart.Paste
    .Chart.Export Filename:="D:\Excel\Test7\testABC.jpg"
    .Delete
  End With
  Set cObj = Nothing
End Sub

2 hits

【57318】シートに挿入されている写真をjpgとして取り出す方法 とも 08/8/7(木) 12:59 質問
【57319】Re:シートに挿入されている写真をjpgと... kanabun 08/8/7(木) 13:32 発言
【57320】Re:シートに挿入されている写真をjpgと... Yuki 08/8/7(木) 13:49 発言
【57321】Re:シートに挿入されている写真をjpgと... とも 08/8/7(木) 16:12 お礼
【57323】Re:シートに挿入されている写真をjpgと... kanabun 08/8/7(木) 21:20 発言
【57324】Re:シートに挿入されている写真をjpgと... n 08/8/7(木) 22:11 発言
【57325】Re:シートに挿入されている写真をjpgと... takata 08/8/7(木) 23:29 お礼
【57326】Re:シートに挿入されている写真をjpgと... kanabun 08/8/7(木) 23:35 発言

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