質問編集履歴
1
直接差し替えるのではなく、削除後に追加する形に変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -49,3 +49,16 @@
|
|
|
49
49
|
### 試したこと
|
|
50
50
|
差し替え前の画像を選択することはできているようです。
|
|
51
51
|
|
|
52
|
+
### 追記
|
|
53
|
+
```vba
|
|
54
|
+
If shape.Type = msoPicture Then
|
|
55
|
+
shape.Select
|
|
56
|
+
shleft = shape.Left
|
|
57
|
+
shtop = shape.Top
|
|
58
|
+
shape.Delete
|
|
59
|
+
doc.Shapes.AddPicture FileName:=picpath, Left:=shleft, Top:=shtop
|
|
60
|
+
|
|
61
|
+
End If
|
|
62
|
+
|
|
63
|
+
```
|
|
64
|
+
上記のように、削除したあと同じ位置に追加する処理に変更したのですが、変更される画像と変更されない画像があります。
|