|
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
|
|