![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
jpg で保存する方法です。
空のシートを作る部分だけ、若干手間を取ります。
ファイル名は面倒なので、日付時間値にしてしまいました。
'//
Sub PictureSave()
Dim arBuf As Variant
Dim cb As Variant
Dim sh As Worksheet
Dim pic As Object
Dim objCht As Object
Dim Fname As String
Dim formatDate As String
Set sh = ThisWorkbook.Worksheets.Add '空のシート
arBuf = Application.ClipboardFormats
If Not IsArray(arBuf) Then MsgBox "クリップボードに何もありません。": Exit Sub
For Each cb In arBuf
If cb = xlClipboardFormatBitmap Then
sh.Paste
Exit For
End If
Next
Set pic = sh.Pictures(1)
If pic Is Nothing Then Exit Sub
With pic
Set objCht = ActiveSheet.ChartObjects.Add(.Left, .Top, .Width, .Height).Chart
End With
formatDate = Format$(Now(), "yymmddhhmms")
Fname = Application.GetSaveAsFilename(formatDate, "画像ファイル(*.jpg), *.jpg", , "画像の保存")
If VarType(Fname) = vbBoolean Then Exit Sub
pic.Copy
objCht.Paste
objCht.Export Fname, "jpg"
pic.Delete
sh.ChartObjects(1).Delete
Application.DisplayAlerts = False
sh.Delete 'シート削除
Application.DisplayAlerts = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Windows 10 クリップボードからペイント? 2 2022/09/15 10:01
- PDF 画像調整してスクショし保存した画像を印刷する方法 1 2022/03/31 18:42
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) エクセルで保存時に全部のシートの最終行をコピーして数値で貼り付けたい 3 2023/08/14 15:49
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- その他(ソフトウェア) 画像のファイル形式、拡張子が変わると、性能が変わると思うのですが、ファイル名の「jpg、png、do 8 2022/08/10 13:37
- PDF エクセルのVBAでファイルをpdfで保存するとソフトによっては開けなくなる 3 2022/06/08 10:20
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
【エクセルのマクロ】クリップボードのbitmapをフォームに表示させたい
Visual Basic(VBA)
-
【VBA】 Alt+PrintScreenにてアクティブウィンドウのスクショを貼付する方法
Excel(エクセル)
-
EXCEL VBA 複数のImageコントロールにクリップボードに保存されている画像を表示したい
Visual Basic(VBA)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
7
EXCELにクリップボードにある画像を貼り付け、その表示サイズを変更したい
Visual Basic(VBA)
-
8
SavePictureで保存できない
Visual Basic(VBA)
-
9
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
10
Excel ユーザーフォームで表示させた画像をユーザーフォーム上で保存したい
Visual Basic(VBA)
-
11
クリップボードの内容を変数に取り込みたい(EXCEL VBA)
Visual Basic(VBA)
-
12
画像のピクセルデータの取得
Visual Basic(VBA)
-
13
エクセルのシートに貼りつけたbmpをjpegに
その他(Microsoft Office)
-
14
VBAで画像圧縮はできますか?
Visual Basic(VBA)
-
15
bmp画像をjpegやpng画像に圧縮する方法
Visual Basic(VBA)
-
16
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
17
【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい
Excel(エクセル)
-
18
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
19
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
20
EXCEL VBAのユーザーフォームに引数を渡す方法について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
txtデータをjavaという...
-
SAIのペーパーテクスチャが反映...
-
マイピクチャーの画像をデスク...
-
エクセルのVBAでクリップボード...
-
壁紙の削除について。
-
解凍後の.zipファイルは消して...
-
圧縮ファイル(rarファイル)は...
-
Outlook2010 データ (.ost)の復元
-
api-ms-win-downlevel-kernel32...
-
VCSファイルをCSVファイル に変...
-
アンインストールする前にファ...
-
Arduinoやラズパイでnotion専用...
-
SGFファイルの開き方
-
Microsoft Visual C++ Runtime ...
-
破損したISOのファイルを修復す...
-
パソコン乗換ガイドがどこにあ...
-
起動してるソフトは終了してか...
-
ソフトを起動するとエラーがで...
-
ワードのデータをUSBに保存した...
-
4.7GB以上のデータをDVDに書き...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのVBAでクリップボード...
-
画像の背景が黒くなる
-
マイピクチャーの画像をデスク...
-
ソフトを使わず、拡張子を変換...
-
保存時の拡張子を小文字にする...
-
壁紙の削除について。
-
写真のファイル形式を変えるには?
-
txtデータをjavaという...
-
24bmpと256bmpの違い
-
bmp形式からJPGへの保存形式...
-
ワードファイルをPDFファイルに...
-
画像を640×480に編集した...
-
JPEG形式の写真に変更したいです
-
画像の拡張子をjpzに変換
-
Macの画像データをWindowsに送...
-
大切な画像を上書き保存してし...
-
ファイルの種類jpgからjp...
-
JPGとjpgとJPEGの謎
-
デジカメ動画をパソコンに保存...
-
拡張子
おすすめ情報