質問編集履歴

1

実際に書いてみて、それに対するアドバイスを頂く形にしました。

2021/12/27 08:38

投稿

Shou1142
Shou1142

スコア5

test CHANGED
File without changes
test CHANGED
@@ -1,4 +1,8 @@
1
- タイトルの内容を実現するコードを書いです
1
+ タイトルの内容を実現するコードを書いてみました。
2
+
3
+ 改善ポイント等あればご教示頂きたいです。
4
+
5
+
2
6
 
3
7
  細かな条件は以下となります。
4
8
 
@@ -6,8 +10,46 @@
6
10
 
7
11
  ◆ファイルはユーザーが選択できるようにしたいです
8
12
 
9
- ◆ボタン押下→ダウンロードフォルダ開く→ファイルをダブルクリック→自動的に挿入される
13
+ ◆ボタン押下→ダウンロードフォルダ開く→ファイルをダブルクリック→挿入
10
14
 
11
15
 
12
16
 
17
+ Sub 〇〇〇データ取り込み()
18
+
19
+ '変数定義
20
+
21
+ Dim ws3 As Worksheet '"〇〇〇データ選択シート"を変数化
22
+
23
+ Dim rng As Range
24
+
25
+ Dim SelectFile As String '選択したファイル名を格納する変数
26
+
27
+ Dim myShape As Shape
28
+
29
+
30
+
31
+ Set ws3 = Worksheets("〇〇〇データ選択シート")
32
+
33
+ Set rng = ActiveCell
34
+
35
+
36
+
37
+ With Application.FileDialog(msoFileDialogFilePicker)
38
+
39
+ .Show 'ファイルダイアログを開く
40
+
41
+ SelectFile = .SelectedItems(1) '「開く」ボタンを押すとファイル名が取得できる
42
+
43
+ Set myShape = ActiveSheet.Shapes.AddPicture(SelectFile, False, True, rng.Left, rng.Top, -1, -1) '選択したセルに挿入
44
+
45
+
46
+
47
+ End With
48
+
49
+
50
+
51
+ End Sub
52
+
53
+
54
+
13
- ご教示よろしくお願い致します。
55
+ どうぞよろしくお願い致します。