
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAでセルを指定した画像のコピー&ペーストを繰り返したい
Excel(エクセル)
-
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
-
-
4
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
5
任意フォルダから画像をすべてエクセルの指定マスに貼り付けをしたい
Visual Basic(VBA)
-
6
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
7
EXCELのVBAで画像を選んだ順に貼り付ける方法
Excel(エクセル)
-
8
Excel VBA マクロ 画像の貼り付け
Visual Basic(VBA)
-
9
エクセルのマクロで特定フォルダ内のJPGファイルを検索して開きたいので
Excel(エクセル)
-
10
画像を削除したい(VBA)
Word(ワード)
-
11
エクセル★画像選択のVBAコード
Excel(エクセル)
-
12
VBAによるセル内の画像の位置調整
Excel(エクセル)
-
13
VBA Shapes コピーと名前
Excel(エクセル)
-
14
マウスで選択した図形のみVBAで移動したい。
Visual Basic(VBA)
-
15
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
16
複数の画像ファイルを挿入したい
Excel(エクセル)
-
17
エクセルVBAで画像を貼り付ける座標設定方法は?
PowerPoint(パワーポイント)
-
18
EXCELで別シートのセル内に画像の貼り付けをしたいのですが・・・
Excel(エクセル)
-
19
エクセルVBAで選択状態を解除のしかた
Excel(エクセル)
-
20
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル”ファイルエラー:デー...
-
VBAで選択した画像を貼り付けたい
-
画像ファイルが大きすぎます
-
フォルダ内の画像の枚数がわか...
-
イラストレーターに取り込んだ...
-
【アイコンの背景色が黒塗りに...
-
Snipping Toolのキャプチャ画面...
-
ペイントのBMPで作ったアイコン...
-
イラストレーター、配置した白...
-
保存すると背景が真っ黒になっ...
-
複数の写真を1枚に印刷
-
PhotoScape X(フォトスケープ)
-
画像の拡大率を固定したまま次...
-
ペイントで矢印を!
-
画像のサイズを 1260×350 にド...
-
・pdfファイルの一部を切り出す...
-
PhotoshopからIllustratorに配...
-
Bitmapの256色と24ビットの違い
-
タスクバーの裏に壁紙が隠れな...
-
肌の色を同じにするには?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画像ファイルが大きすぎます
-
VBAで選択した画像を貼り付けたい
-
フォルダ内の画像の枚数がわか...
-
教えて下さいm(__)m。
-
ホームページ作成における質問
-
「WEBページとして保存」をする...
-
MACで作ったJPEGがWindowsで開...
-
Powerpoint2003でファイルの保...
-
アクセス 画像の挿入について...
-
EMFファイルをどうしたら開くこ...
-
エクセル”ファイルエラー:デー...
-
添付されたjpg画像が見られない
-
macユーザーからの画像が開けま...
-
WindowsとMacでの画像サイズの違い
-
イラストレーターに取り込んだ...
-
【アイコンの背景色が黒塗りに...
-
Snipping Toolのキャプチャ画面...
-
イラストレーター、配置した白...
-
保存すると背景が真っ黒になっ...
-
hp画像のサイズでかい場合の調整
おすすめ情報