すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 唐草文様描画マクロ()     Const ARACANLF = 80 　 　'キャンバス位置Ｘ     Const ARACANTP = 100　　'                     Ｙ     Const ARACANWD = 280　　'キャンバス幅     Const ARACANHT = 200　　'キャンバス高さ     '     Const ARABZMAG = 0.15     'ベジェ曲線倍率     '     Const ARABZLFT = 20　　'ベジェ曲線描画開始位置Ｘ     Const ARABZTOP = 25　　'　　　　　　　　　　　Ｙ     '     Const ARABZWID = 30      'ベジェ曲線描画幅     Const ARABZHEI = 25       'ベジェ曲線描画高さ     '     Const ARABROWS = 7　　'ベジェ曲線描画行     Const ARABCOLS = 9　　'ベジェ曲線描画桁     Const ARABZWEI = 3　　'ベジェ曲線描画太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer,

Option Explicit Option Base 0 ' Public Sub 網目文様描画マクロ()     Const MESHLEFT = 80　　　　　　        '描画開始位置Ｘ     Const MESHTOPP = 100　　　　　　     '　　　　　　Ｙ     Const MESHWIDT = 24 　　　　　　　　'メッシュの幅     Const MESHHEIG = 40 　　　　　　　　 'メッシュの高さ     Const MESHCOLS = 7                           '列数     Const MESHROWS = 3                         '行数      '     Const MESHLNWE = 1.5                      '線の太さ    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer     Dim Lp As Integer, lngCol As Long     Dim intDxp As Integer, intDyp As Integer     Dim sngDat(3, 1) As Single, sngBas(3, 1) As Single     '     '*ベジェ曲線基礎データ     sngBas(0, 0)

Option Explicit Option Base 0 ' Public Sub ベジェ曲線による蜘蛛の巣描画マクロ()     Const SPICXPOS = 220　　　　　　   '蜘蛛の巣の中心位置　X     Const SPICYPOS = 200 　　　　　　  '                              Y     Const SPICCRAD = 150                    '蜘蛛の巣の半径     Const SPILCONT = 10                      '線の数     Const SPINCONT = 6                       '横線の数     Const SPILNWEI = 1.5                     '線の太さ     Const SPISAGGI = 0.9                     'たるみ度     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, intAng As Integer, dblRd As Double     Dim intNR As Integer, lngCl As Long     Dim intXp1 As Integer, intYp1 As Integer     Dim sngWrk(3, 1) As Single

Option Explicit Option Base 0 Public Sub ベジェ曲線によるたまご描画マクロ()     Const EGGLEFT = 60            'たまご描画開始位置Ｘ     Const EGGTOPP = 80           '                           Ｙ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim sngBzBs(9, 1) As Single, sngBzWk(9, 1) As Single     '     '*たまごのベジェ曲線ベースデータ     sngBzBs(0, 0) = 50: sngBzBs(0, 1) = 0     sngBzBs(1, 0) = 40: sngBzBs(1, 1) = 0     sngBzBs(2, 0) = 5: sngBzBs(2, 1) = 40     sngBzBs(3, 0) = 30: sngBzBs(3, 1) = 72     sngBzBs(4, 0) = 40: sngBzBs(4, 1) = 83     sngBzBs(5, 0) = 60: sngBzBs(5, 1) = 83     sngBzBs(6, 0) = 70: sngBzBs(6, 1) = 72     sngBzBs(7, 0) = 95: sngBz

左の表にデータを入力して、作成のボタンをクリックすると、そのデータに基づく、ベジェ曲線を描画します。表には、Ｘ、Ｙの１０組の位置情報を入力します。Option Explicit Option Base 0 Public Sub ベジェ曲線作成マクロ()     Const BEZIXPOS = 200 　　　　　　　'ベジェ曲線オフセットＸ     Const BEZIYPOS = 80 　　　　　　　  '       　                    Ｙ     Const BEZIBAIR = 2                           'ベジェ曲線描画倍率     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, strDat As String     Dim celData As Cell, sngBezi(9, 1) As Single     If ActiveDocument.Tables.Count < 1 Then Exit Sub     '     With ActiveDocument.Tables(1)          '*セルデータ取り込み          For Each celData In .Range.Cells              strDat = celData.Range.Text              sngBez

Option Explicit Option Base 0 Public Sub Test1()     Const CIRCXPOS = 200　　　　　　　    '輪の中心位置　X     Const CIRCYPOS = 160 　　　　　　　　'　　　            Y     Const CIRCRADI = 50　　　　　　　　   '輪の半径     '     Const PETACONT = 12 　　　　　　　　 '花びらの数     Const PISTRADI = 20                            'めしべの半径     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, intAng As Integer     Dim intXp As Integer, intYp As Integer, dblRd As Double     Dim sngBas(0 To 6, 0 To 1) As Single    Dim sngWrk(0 To 6, 0 To 1) As Single     '     '花びらのベジェ曲線ベースデータ     sngBas(0, 0) = 30: sngBas(0, 1) = 0     sngBas(1, 0) = 0: sngBas(1, 1) = 25     sngBas(2, 0) = 0: