
下記でエクセルのシートには保存はできましたが直接画像をjpegでファイルとして保存するにはどうすれば良いでしょうか?
マクロの記録では無理でした・・・
どなたかご存知の方よろしくお願いいたします。
Sub test()
Dim IMG As Variant
Dim wbooks As Workbook
Dim Filename As String
Set wbooks = Workbooks.Add
Filename = "C:\テスト\" & Format(Date - 1, "yyyymmdd") & ".xlsx"
wbooks.SaveAs (Filename)
IMG = "http://t-success.co.jp/image.jpg"
With ActiveSheet.Pictures.Insert(IMG)
.Top = Range("A1").Top
.Left = Range("A1").Left
End With
wbooks.Save
End Sub
No.1ベストアンサー
- 回答日時:
知恵袋に回答がありました。
ご参考まで。下記では画像ファイルがpngとなっていますのでjpgに変更する事と、JRLアドレスの変更で可能だと思います。
http://detail.chiebukuro.yahoo.co.jp/qa/question …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JPGファイルなのに読み込めない。
-
保存形式TIFFからJPEGやEPSへの...
-
HDD革命バックアップ4の圧縮率...
-
Illustrator10で、ファイルを開...
-
JPG画像のレイヤー分解?編集?...
-
ペイントで丸くトリミングして...
-
macイラレとwinイラレの互換...
-
一太郎に画像を挿入するとファ...
-
EPSを含むイラレファイルをきれ...
-
画像加工ツールのGIMPの パスと...
-
gimpで綺麗に文字を入れる方法...
-
イラストレータ 保存すると画...
-
ライブカメラ画像を保存するに...
-
スキャン画像のサイズを小さく...
-
excelの列幅高さが勝手に変わる...
-
ワードA3で作成したファイルをA...
-
WordのA3で作成されたファイル...
-
邪魔なwww.softonic.jpの消し方...
-
Excel 列幅のピクセル数につい...
-
機種変更する前のアプリが機種...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ペイントで丸くトリミングして...
-
JPGファイルなのに読み込めない。
-
JPEGの画像を重くしたい
-
JPEG画像のバイト数を減らすに...
-
JPG画像のレイヤー分解?編集?...
-
レイヤーを結合せず、photoshop...
-
gimpで綺麗に文字を入れる方法...
-
Illustrator 埋め込んだ画像が...
-
macイラレとwinイラレの互換...
-
PhotoshopでPDF200ページをJPEG...
-
uwsc 画像の取得および保存方法...
-
pngファイル内の複数の画像を1...
-
GIMPで重ねた下の画像がうっす...
-
wordに.fig の拡張子の画像を貼...
-
スキャン画像のサイズを小さく...
-
IllustratorのWeb用に保存の「...
-
Photoshop Image ReadyでGIFア...
-
VBAでwebの画像を名前を付けて...
-
Photoshopのスライスツールでで...
-
gimpですりガラスのような画像...
おすすめ情報