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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
任意フォルダから画像をすべてエクセルの指定マスに貼り付けをしたい
Visual Basic(VBA)
-
-
4
EXCELのVBAで画像を選んだ順に貼り付ける方法
Excel(エクセル)
-
5
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
-
6
複数の画像ファイルを挿入したい
Excel(エクセル)
-
7
VBA Shapes コピーと名前
Excel(エクセル)
-
8
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
9
Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて
Excel(エクセル)
-
10
Excel マクロ 画像をリンクせずかつ圧縮して貼りつける方法を教えてください
Excel(エクセル)
-
11
エクセルに画像を貼付け縮小する作業をマクロにしたいのですが、
Excel(エクセル)
-
12
エクセルVBAで縦向きの画像の挿入・回転
Excel(エクセル)
-
13
エクセル マクロ写真帳に一括で写真を張り付けたいです。
Visual Basic(VBA)
-
14
【VBA】写真の貼り付けコードがうまく機能しません。
Visual Basic(VBA)
-
15
エクセルのマクロで特定フォルダ内のJPGファイルを検索して開きたいので
Excel(エクセル)
-
16
マウスで選択した図形のみVBAで移動したい。
Visual Basic(VBA)
-
17
エクセルVBA 図形の選択法は?
Visual Basic(VBA)
-
18
VBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)
Excel(エクセル)
-
19
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
20
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで選択した画像を貼り付けたい
-
オシロスコープのTIFFファイル...
-
イラストレーターに取り込んだ...
-
【アイコンの背景色が黒塗りに...
-
保存した画像の余白カットしたい
-
ペイントのBMPで作ったアイコン...
-
Snipping Toolのキャプチャ画面...
-
イラストレーター、配置した白...
-
画像の拡大率を固定したまま次...
-
物理学の教科書などにあるよう...
-
PDFで取込んだデータをペイント...
-
「ペイント」の範囲選択がうま...
-
JPEG画像に直接URLを埋め込むこ...
-
ペイントでGIFファイルが開けない
-
Photoshopで拡大縮小時にアンチ...
-
写真のような横長い画像の作成方法
-
イラストレータの画像をJPG形式...
-
premiere pro:黒い帯消したい
-
パソコンでJPEG画像ファイルを...
-
Adobe Premiere JPEG画像取り...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで選択した画像を貼り付けたい
-
フォルダ内の画像の枚数がわか...
-
エクセル”ファイルエラー:デー...
-
MACで作ったJPEGがWindowsで開...
-
マイピクチャーのThumbs.db,jpg...
-
EMFファイルをどうしたら開くこ...
-
アクセス 画像の挿入について...
-
WindowsとMacでの画像サイズの違い
-
「WEBページとして保存」をする...
-
rmファイルのアイコン画像
-
JPEGファイルをJPEGイメージに...
-
デジカメで撮影した画像のファ...
-
オシロスコープのTIFFファイル...
-
ipadでjpgファイルを見たいので...
-
添付されたjpg画像が見られない
-
イラストレーターに取り込んだ...
-
【アイコンの背景色が黒塗りに...
-
ペイントのBMPで作ったアイコン...
-
保存した画像の余白カットしたい
-
Snipping Toolのキャプチャ画面...
おすすめ情報