回答編集履歴
3
Test_Sample_Miniature部分
answer
CHANGED
|
@@ -4,7 +4,7 @@
|
|
|
4
4
|
ChartObj()でオブジェクトを取得すれば、後は適当な場所へ配置できます。
|
|
5
5
|
```ここに言語を入力
|
|
6
6
|
Option Explicit
|
|
7
|
-
Sub
|
|
7
|
+
Sub Test_Sample_Miniature()
|
|
8
8
|
|
|
9
9
|
Dim ChartObj() As ChartObject
|
|
10
10
|
Dim MyChart As ChartObject
|
2
、位置変更
answer
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
チャート並び替えのサンプルです。
|
|
2
2
|
フラグがあるシートに張り付けて動かして見て下さい。
|
|
3
3
|
イメージが掴めると思います。
|
|
4
|
-
ChartObj()でオブジェクトを取得すれば後は
|
|
4
|
+
ChartObj()でオブジェクトを取得すれば、後は適当な場所へ配置できます。
|
|
5
5
|
```ここに言語を入力
|
|
6
6
|
Option Explicit
|
|
7
7
|
Sub Macro1()
|
1
コメント追加
answer
CHANGED
|
@@ -17,6 +17,7 @@
|
|
|
17
17
|
iX = 0: lngTop = 0: lngLeft = 0
|
|
18
18
|
For Each MyChart In ActiveSheet.ChartObjects
|
|
19
19
|
'
|
|
20
|
+
'オブジェクトの取得
|
|
20
21
|
ReDim Preserve ChartObj(iX)
|
|
21
22
|
Set ChartObj(iX) = MyChart
|
|
22
23
|
'
|
|
@@ -38,6 +39,7 @@
|
|
|
38
39
|
lngNowLeft = lngLeft
|
|
39
40
|
End Select
|
|
40
41
|
'
|
|
42
|
+
'位置移動･大きさ変更
|
|
41
43
|
If iX <> 0 Then
|
|
42
44
|
ChartObj(iX).Top = lngNowTop + 100
|
|
43
45
|
ChartObj(iX).Left = lngNowLeft + 200
|