回答編集履歴
1
値の場合の例も追記
test
CHANGED
|
@@ -44,6 +44,8 @@
|
|
|
44
44
|
|
|
45
45
|
|
|
46
46
|
|
|
47
|
+
' オブジェクトの場合
|
|
48
|
+
|
|
47
49
|
t_Container.SetX Sheet1
|
|
48
50
|
|
|
49
51
|
If t_Container.IsObject Then
|
|
@@ -58,6 +60,20 @@
|
|
|
58
60
|
|
|
59
61
|
|
|
60
62
|
|
|
63
|
+
' 値の場合
|
|
64
|
+
|
|
65
|
+
t_Container.SetX 1
|
|
66
|
+
|
|
67
|
+
If t_Container.IsObject Then
|
|
68
|
+
|
|
69
|
+
Set t_X = t_Container.X
|
|
70
|
+
|
|
71
|
+
Else
|
|
72
|
+
|
|
73
|
+
t_X = t_Container.X
|
|
74
|
+
|
|
75
|
+
End If
|
|
76
|
+
|
|
61
77
|
End Sub
|
|
62
78
|
|
|
63
79
|
```
|