Excel VBA質問箱 IV

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

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


24758 / 76732 ←次へ | 前へ→

【57321】Re:シートに挿入されている写真をjpgとして取り出す方法
お礼  とも  - 08/8/7(木) 16:12 -

引用なし
パスワード
   Yukiさん、kanabunさん
早速のご教授有難う御座いました。
Yukiさんのでやってみたら、出来ましたので
使わせていただきます。
有難う御座いました。
いつもここで、教えていただいた事を
とりあえず使わせていただく訳なんですが
その内容について、私自身が理解するのに苦労します。
ご親切に教えていただいたことを「無」に
しないように、学習していきますので
今後とも宜しくお願いいたします。


>▼とも さん:
>>シート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
3 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 発言

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