質問編集履歴
1
コードを一部直しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -48,7 +48,7 @@
|
|
|
48
48
|
|
|
49
49
|
With ActiveWindow.ShapeRange ’なぞ
|
|
50
50
|
|
|
51
|
-
.AlternativeText = "横：" & shw & "縦：" &
|
|
51
|
+
.AlternativeText = "横：" & shw & "縦：" & shh ’なぞ
|
|
52
52
|
|
|
53
53
|
End With ’なぞ
|
|
54
54
|
|