VBAでエクセルファイルに選択した画像を貼り付けたいです。
現在使用しているコードは以下のとおりです。
これをファイル名を指定するのではなく、マクロを実行するとダイヤログが出て
ファイルの選択をして画像を貼り付けるようにしたいのです。
申し訳ありませんがこのコードを手直しして頂けませんでしょうか?
宜しくお願い致します。
Sub 画像貼り付け()
Dim objShape As Object
Set objShape = ActiveSheet.Shapes.AddPicture( _
Filename:="C:\○○○\×××\Desktop\〇〇.bmp", _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=130, _
Top:=104, _
Width:=130, _
Height:=150)
No.1ベストアンサー
- 回答日時:
こんばんは、
こんな感じかな?
Sub 画像貼り付け()
Dim objShape As Object
Dim Filename As String
With Application.FileDialog(msoFileDialogOpen)
.Title = "bpmファイルを選択してください。"
.InitialFileName = CreateObject("WScript.Shell").SpecialFolders("Desktop")
.Filters.Clear
.Filters.Add "bmpファイル", "*.bpm", 1
If .Show = True Then
Filename = .SelectedItems(1)
End If
If Filename = "" Then Exit Sub
End With
Set objShape = ActiveSheet.Shapes.AddPicture(Filename, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=130, _
Top:=104, _
Width:=130, _
Height:=150)
No.2
- 回答日時:
ごめんなさい。
タイプミス "*.bpm", 1 ×
"*.bmp", 1
ちなみに
.Filters.Add "bmpファイル", "*.bmp", 1
.Filters.Add "画像ファイル", "*.jpg;*.png", 2
のようにフィルタ拡張子を増やす事も出来ます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
任意フォルダから画像をすべてエクセルの指定マスに貼り付けをしたい
Visual Basic(VBA)
-
-
4
EXCELのVBAで画像を選んだ順に貼り付ける方法
Excel(エクセル)
-
5
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
-
6
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
7
複数の画像ファイルを挿入したい
Excel(エクセル)
-
8
VBA Shapes コピーと名前
Excel(エクセル)
-
9
Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて
Excel(エクセル)
-
10
Excel マクロ 画像をリンクせずかつ圧縮して貼りつける方法を教えてください
Excel(エクセル)
-
11
エクセルVBAで縦向きの画像の挿入・回転
Excel(エクセル)
-
12
エクセルに画像を貼付け縮小する作業をマクロにしたいのですが、
Excel(エクセル)
-
13
VBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)
Excel(エクセル)
-
14
Excel 画像貼り付けのVBAについて
Excel(エクセル)
-
15
エクセル マクロ写真帳に一括で写真を張り付けたいです。
Visual Basic(VBA)
-
16
【VBA】写真の貼り付けコードがうまく機能しません。
Visual Basic(VBA)
-
17
エクセルのマクロで特定フォルダ内のJPGファイルを検索して開きたいので
Excel(エクセル)
-
18
エクセルVBA 図形の選択法は?
Visual Basic(VBA)
-
19
マウスで選択した図形のみVBAで移動したい。
Visual Basic(VBA)
-
20
【EXCEL VBA】ダブルクリックでセルのサイズに合わせて画像を挿入に機能を追加したいです。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
【関数】先頭だけにある、半角...
-
エクセル 白黒印刷で白線を印刷...
-
Excelのチェックボックスの使い...
-
【関数】適切な文字数の数字を...
-
Excelのpivotについて質問です
-
Excel ピボットテーブルで日付...
-
LOOKUP関数を使えばいいのでし...
-
エクセル関数を教えてください
-
エクセルのセルに同じ大きさの...
-
UNIQUE関数が使えないバージョ...
-
excelの不要な行の削除ができな...
-
エクセルで「-0.0」と表示さ...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの関数について教えて...
-
Aというブックの1というシート...
-
【マクロ】シート名を取得する...
-
VBA Private Sub Worksheet_Cha...
-
VBA、Excelのworkbook.open に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで選択した画像を貼り付けたい
-
フォルダ内の画像の枚数がわか...
-
エクセル”ファイルエラー:デー...
-
マイピクチャーのThumbs.db,jpg...
-
EMFファイルをどうしたら開くこ...
-
WindowsとMacでの画像サイズの違い
-
アクセス 画像の挿入について...
-
MACで作ったJPEGがWindowsで開...
-
オシロスコープのTIFFファイル...
-
「WEBページとして保存」をする...
-
イラストレーターに取り込んだ...
-
【アイコンの背景色が黒塗りに...
-
ペイントのBMPで作ったアイコン...
-
保存した画像の余白カットしたい
-
Snipping Toolのキャプチャ画面...
-
画像の拡大率を固定したまま次...
-
イラストレーター、配置した白...
-
JPEG画像に直接URLを埋め込むこ...
-
PDFファイルの色を濃くしたい
-
jpgよりpdfの方が軽い?
おすすめ情報