【Word VBA】立方体描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Private Const CUBEPAIV = 3.141592
Private Const CUBERADI = (CUBEPAIV / 180)
Public Sub 立方体描画マクロ()
Const CUBELEFT = 100 '描画開始位置Ｘ
Const CUBETOPP = 110 ' Ｙ
'
Const CUBEVPIT = 60 '横-間隔
Const CUBEHPIT = 60 '縦-間隔
Const CUBECOLS = 5 '横/描画数
Const CUBEROWS = 4 '縦/描画数
'
Const CUBERATE = 15 'サイズ倍率/x2
Const CUBELNCL = vbBlue '線の色
Const CUBELNWT = 1 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
Dim sngCxp As Single, sngCyp As Single
Dim sngAnX A
0
