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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
【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
Excel vbaについての質問
Visual Basic(VBA)
-
8
エクセルで貼り付けたオブジェクトの画像をユーザーフォームのイメージコントロールで表示する方法
Excel(エクセル)
-
9
エクセルのシートに貼りつけたbmpをjpegに
その他(Microsoft Office)
-
10
VBA ユーザーフォーム Image1 貼り付け画像の保存?
Visual Basic(VBA)
-
11
Excel ユーザーフォームで表示させた画像をユーザーフォーム上で保存したい
Visual Basic(VBA)
-
12
EXCELにクリップボードにある画像を貼り付け、その表示サイズを変更したい
Visual Basic(VBA)
-
13
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
14
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
15
bmp画像をjpegやpng画像に圧縮する方法
Visual Basic(VBA)
-
16
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
17
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
18
SavePictureで保存できない
Visual Basic(VBA)
-
19
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
20
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
24bmpと256bmpの違い
-
JPGとjpgとJPEGの謎
-
解凍後の.zipファイルは消して...
-
VCSファイルをCSVファイル に変...
-
LOL Replayで試合を再生しよう...
-
CドライブのAPSETUPフォルダは...
-
破損したISOのファイルを修復す...
-
ワードのデータをUSBに保存した...
-
Ziを開けるには
-
パソコン乗換ガイドがどこにあ...
-
Premiere Proのプレビューファ...
-
フォルダアイコンの変更でpngを...
-
圧縮ファイルのアイコンが表示...
-
拡張子をtxtからdatに
-
パソコン内の全ファイル数を調...
-
gzという拡張子のファイルを解...
-
このプログラム削除してOKですか?
-
GIMPでの縦書き・スクリプトに...
-
Excelで「同じ名前のファイルが...
-
一部のオンラインゲームが出来...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのVBAでクリップボード...
-
画像の背景が黒くなる
-
マイピクチャーの画像をデスク...
-
ソフトを使わず、拡張子を変換...
-
保存時の拡張子を小文字にする...
-
txtデータをjavaという...
-
24bmpと256bmpの違い
-
画像の拡張子をjpzに変換
-
ワードファイルをPDFファイルに...
-
画像をjpgで保存出来る場合と、...
-
壁紙の削除について。
-
ファイルの拡張子を変更すると...
-
Max 画像dataをWindowsで開く方...
-
JPGとjpgとJPEGの謎
-
SAIのペーパーテクスチャが反映...
-
UserImages.bmpというファイル...
-
未対応の画像フォーマット?
-
ファイルの拡張子を「bmp」から...
-
保存した画像が開けないのです...
-
壁紙の保存されている場所は?
おすすめ情報