質問編集履歴
1
所定のコード入力に変更しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,3 +1,6 @@
|
|
|
1
|
+
失礼しました。
|
|
2
|
+
再投稿です。
|
|
3
|
+
|
|
1
4
|
VBAで画像を指定場所に張り付けたいです。
|
|
2
5
|
VBA超初心者です。
|
|
3
6
|
|
|
@@ -15,85 +18,40 @@
|
|
|
15
18
|
|
|
16
19
|
|
|
17
20
|
|
|
21
|
+
```VBA
|
|
18
|
-
Sub 画像貼り付け()
|
|
22
|
+
Sub 画像貼り付け()
|
|
19
23
|
|
|
20
|
-
|
|
21
24
|
Dim lngTop As Long
|
|
22
|
-
Dim objFile As Object
|
|
25
|
+
Dim objFile As Object
|
|
23
|
-
Dim objFldr As FileSystemObject
|
|
26
|
+
Dim objFldr As FileSystemObject
|
|
24
|
-
Dim TheShape As Shape
|
|
27
|
+
Dim TheShape As Shape
|
|
25
|
-
Dim i As Integer
|
|
28
|
+
Dim i As Integer
|
|
26
29
|
|
|
27
|
-
|
|
30
|
+
Set objFldr = CreateObject("Scripting.FileSystemObject")
|
|
28
|
-
|
|
29
|
-
lngTop = 47.5
|
|
30
|
-
|
|
31
|
-
i = 0
|
|
32
|
-
For Each objFile In objFldr.GetFolder(ThisWorkbook.Path & "\picture").Files
|
|
33
|
-
|
|
34
|
-
ActiveSheet.shapes.AddPicture _
|
|
35
|
-
Filename:=objFile, _
|
|
36
|
-
LinkToFile:=False, _
|
|
37
|
-
SaveWithDocument:=True, _
|
|
38
|
-
Left:=11, _
|
|
39
|
-
Top:=lngTop, _
|
|
40
|
-
Width:=252.834, _
|
|
41
|
-
Height:=188.5
|
|
42
|
-
|
|
43
|
-
i = i + 1
|
|
44
31
|
|
|
45
|
-
|
|
46
|
-
If i Mod 4 = 0 Then
|
|
47
|
-
|
|
48
|
-
|
|
32
|
+
lngTop = 47.5
|
|
49
|
-
|
|
50
|
-
Else
|
|
51
|
-
lngTop = lngTop + 188.5 + 16.05
|
|
52
|
-
End If
|
|
53
|
-
Next
|
|
54
|
-
|
|
55
|
-
|
|
56
|
-
|
|
57
|
-
画像を張り付ける位置を指定したいです
|
|
58
33
|
|
|
59
|
-
|
|
34
|
+
i = 0
|
|
35
|
+
For Each objFile In objFldr.GetFolder(ThisWorkbook.Path & "\picture").Files
|
|
60
36
|
|
|
37
|
+
ActiveSheet.shapes.AddPicture _
|
|
38
|
+
Filename:=objFile, _
|
|
39
|
+
LinkToFile:=False, _
|
|
40
|
+
SaveWithDocument:=True, _
|
|
41
|
+
Left:=11, _
|
|
61
|
-
|
|
42
|
+
Top:=lngTop, _
|
|
62
|
-
Dim objFile As Object
|
|
63
|
-
Dim objFldr As FileSystemObject
|
|
64
|
-
Dim TheShape As Shape
|
|
65
|
-
|
|
43
|
+
Width:=252.834, _
|
|
44
|
+
Height:=188.5
|
|
66
45
|
|
|
46
|
+
i = i + 1
|
|
67
47
|
|
|
48
|
+
If i Mod 4 = 0 Then
|
|
68
49
|
|
|
50
|
+
lngTop = lngTop + 188.5 + 80
|
|
69
51
|
|
|
52
|
+
Else
|
|
53
|
+
lngTop = lngTop + 188.5 + 16.05
|
|
54
|
+
End If
|
|
55
|
+
Next
|
|
70
56
|
|
|
71
|
-
'設置状況
|
|
72
|
-
|
|
73
|
-
Set objFldr = CreateObject("Scripting.FileSystemObject")
|
|
74
|
-
|
|
75
|
-
lngTop = 47.5
|
|
76
|
-
|
|
77
|
-
i = 0
|
|
78
|
-
For Each objFile In objFldr.GetFolder(ThisWorkbook.Path & "\picture").Files
|
|
79
|
-
|
|
80
|
-
ActiveSheet.shapes.AddPicture _
|
|
81
|
-
Filename:=objFile, _
|
|
82
|
-
LinkToFile:=False, _
|
|
83
|
-
SaveWithDocument:=True, _
|
|
84
|
-
Left:=11, _
|
|
85
|
-
Top:=lngTop, _
|
|
86
|
-
Width:=252.834, _
|
|
87
|
-
Height:=188.5
|
|
88
|
-
|
|
89
|
-
i = i + 1
|
|
90
|
-
|
|
91
|
-
|
|
92
|
-
If i Mod 4 = 0 Then
|
|
93
|
-
|
|
94
|
-
lngTop = lngTop + 188.5 + 80
|
|
95
|
-
|
|
96
|
-
|
|
57
|
+
```
|
|
97
|
-
lngTop = lngTop + 188.5 + 16.05
|
|
98
|
-
End If
|
|
99
|
-
Next
|