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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
【VBA】 Alt+PrintScreenにてアクティブウィンドウのスクショを貼付する方法
Excel(エクセル)
-
【エクセルのマクロ】クリップボードのbitmapをフォームに表示させたい
Visual Basic(VBA)
-
EXCEL VBA 複数のImageコントロールにクリップボードに保存されている画像を表示したい
Visual Basic(VBA)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
6
【VBA】Excelの特定範囲のセルを画像で保存したい
Visual Basic(VBA)
-
7
エクセルのシートに貼りつけたbmpをjpegに
その他(Microsoft Office)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
VBA ユーザーフォーム Image1 貼り付け画像の保存?
Visual Basic(VBA)
-
10
Excel ユーザーフォームで表示させた画像をユーザーフォーム上で保存したい
Visual Basic(VBA)
-
11
EXCELにクリップボードにある画像を貼り付け、その表示サイズを変更したい
Visual Basic(VBA)
-
12
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
15
エクセルで貼り付けたオブジェクトの画像をユーザーフォームのイメージコントロールで表示する方法
Excel(エクセル)
-
16
bmp画像をjpegやpng画像に圧縮する方法
Visual Basic(VBA)
-
17
Excel vbaについての質問
Visual Basic(VBA)
-
18
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
19
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
20
エクセルに画像を貼付け縮小する作業をマクロにしたいのですが、
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのVBAでクリップボード...
-
マイピクチャーの画像をデスク...
-
保存時の拡張子を小文字にする...
-
JPGとjpgとJPEGの謎
-
ウインドウズ8 メール画像が...
-
未対応の画像フォーマット?
-
txtデータをjavaという...
-
保存写真拡張子変更方法と再生...
-
24bmpと256bmpの違い
-
保存した画像が開けないのです...
-
解凍後の.zipファイルは消して...
-
Excelで「同じ名前のファイルが...
-
.pubファイルはどうやって開くの?
-
Ziを開けるには
-
拡張子をtxtからdatに
-
誤ってAdobe ReaderでZIPファ...
-
ワードのデータをUSBに保存した...
-
zipファイルを解凍しないで中身...
-
“.vbs”のファイルが実行できない
-
パソコン内の全ファイル数を調...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのVBAでクリップボード...
-
txtデータをjavaという...
-
マイピクチャーの画像をデスク...
-
ソフトを使わず、拡張子を変換...
-
24bmpと256bmpの違い
-
保存時の拡張子を小文字にする...
-
画像の背景が黒くなる
-
壁紙の削除について。
-
SAIのペーパーテクスチャが反映...
-
JPGとjpgとJPEGの謎
-
ワードファイルをPDFファイルに...
-
ファイルの拡張子を変更すると...
-
保存した画像が開けないのです...
-
未対応の画像フォーマット?
-
壁紙の保存されている場所は?
-
Macの画像データをWindowsに送...
-
画像の拡張子をjpzに変換
-
パソコン上で手書き文字などを...
-
写真のファイル形式を変えるには?
-
デスクトップ上に予定を書き込...
おすすめ情報