回答編集履歴
4
こちらかがいいかも
test
CHANGED
|
@@ -15,8 +15,6 @@
|
|
|
15
15
|
Sub 図形作成()
|
|
16
16
|
|
|
17
17
|
'呼び出し側
|
|
18
|
-
|
|
19
|
-
Sub 図形作成()
|
|
20
18
|
|
|
21
19
|
Call zukei(50, 55)'ここのX,Yを乱数化
|
|
22
20
|
|
3
こちらかがいいかも
test
CHANGED
|
@@ -1,8 +1,10 @@
|
|
|
1
|
-
Excel VBAでの図形描画は推奨していませんが。。
|
|
1
|
+
前のレスでも回答させていただいた通り、Excel VBAでの図形描画は推奨していませんが。。
|
|
2
|
+
|
|
3
|
+
素人ながら
|
|
2
4
|
|
|
3
5
|
ご提示されている葉っぱの法則性を関数化してみました。
|
|
4
6
|
|
|
5
|
-
適当かもしれませんが、このように関数化して、描画位置を乱数を発生させればいけるかもしれませんね。
|
|
7
|
+
適当かもしれませんが、このように関数化して、描画位置を乱数を発生させればいけるかもしれませんね。一応、3つの葉っぱが、指定座標に表示されます。
|
|
6
8
|
|
|
7
9
|
|
|
8
10
|
|
2
こちらかがいいかも
test
CHANGED
|
@@ -14,9 +14,13 @@
|
|
|
14
14
|
|
|
15
15
|
'呼び出し側
|
|
16
16
|
|
|
17
|
-
|
|
17
|
+
Sub 図形作成()
|
|
18
18
|
|
|
19
|
+
Call zukei(50, 55)'ここのX,Yを乱数化
|
|
20
|
+
|
|
19
|
-
Call zukei(40, 80)
|
|
21
|
+
Call zukei(40, 80)'ここのX,Yを乱数化
|
|
22
|
+
|
|
23
|
+
Call zukei(80, 100)'ここのX,Yを乱数化
|
|
20
24
|
|
|
21
25
|
End Sub
|
|
22
26
|
|
1
こちらかがいいかも
test
CHANGED
|
@@ -12,6 +12,8 @@
|
|
|
12
12
|
|
|
13
13
|
Sub 図形作成()
|
|
14
14
|
|
|
15
|
+
'呼び出し側
|
|
16
|
+
|
|
15
17
|
Call zukei(50, 55)
|
|
16
18
|
|
|
17
19
|
Call zukei(40, 80)
|
|
@@ -21,6 +23,8 @@
|
|
|
21
23
|
|
|
22
24
|
|
|
23
25
|
Sub zukei(a As Integer, b As Integer)
|
|
26
|
+
|
|
27
|
+
'描画関数
|
|
24
28
|
|
|
25
29
|
Dim size_a As Integer
|
|
26
30
|
|