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
SavePictureで保存できない
Visual Basic(VBA)
-
8
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
9
エクセルのシートに貼りつけたbmpをjpegに
その他(Microsoft Office)
-
10
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
11
Excel ユーザーフォームで表示させた画像をユーザーフォーム上で保存したい
Visual Basic(VBA)
-
12
【VBA】Excelの特定範囲のセルを画像で保存したい
Visual Basic(VBA)
-
13
クリップボードの内容を変数に取り込みたい(EXCEL VBA)
Visual Basic(VBA)
-
14
EXCELにクリップボードにある画像を貼り付け、その表示サイズを変更したい
Visual Basic(VBA)
-
15
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
16
bmp画像をjpegやpng画像に圧縮する方法
Visual Basic(VBA)
-
17
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
18
VBA ユーザーフォーム Image1 貼り付け画像の保存?
Visual Basic(VBA)
-
19
画像のピクセルデータの取得
Visual Basic(VBA)
-
20
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのVBAでクリップボード...
-
保存する際に無題.pngとなる画...
-
画像の背景が黒くなる
-
txtデータをjavaという...
-
保存時の拡張子を小文字にする...
-
現在HPアップ中の使用バイト数...
-
解凍後の.zipファイルは消して...
-
【初心者です】izhというファイ...
-
Excelで「同じ名前のファイルが...
-
拡張子をtxtからdatに
-
4.7GB以上のデータをDVDに書き...
-
エクセルファイルをショートカ...
-
誤って変更した拡張子を元に戻...
-
ファイルを閉じても開いている...
-
Ziを開けるには
-
誤ってAdobe ReaderでZIPファ...
-
“.vbs”のファイルが実行できない
-
ソフトをアン・インストールせ...
-
ファイルを開くプログラムを元...
-
KB890830 適応時の更新箇所
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのVBAでクリップボード...
-
画像の背景が黒くなる
-
マイピクチャーの画像をデスク...
-
ソフトを使わず、拡張子を変換...
-
保存時の拡張子を小文字にする...
-
壁紙の削除について。
-
写真のファイル形式を変えるには?
-
txtデータをjavaという...
-
24bmpと256bmpの違い
-
bmp形式からJPGへの保存形式...
-
ワードファイルをPDFファイルに...
-
画像を640×480に編集した...
-
画像の拡張子をjpzに変換
-
Macの画像データをWindowsに送...
-
JPEG形式の写真に変更したいです
-
大切な画像を上書き保存してし...
-
JPGとjpgとJPEGの謎
-
ファイルの種類jpgからjp...
-
拡張子
-
デジカメ動画をパソコンに保存...
おすすめ情報