絞り込み条件を変更する
検索条件を絞り込む
有料ブログの投稿方法はこちら

すべてのカテゴリ

3 件中 1 - 3 件表示
カバー画像

【Word VBA】ジオメトリー柄描画マクロ其の三▽ソースコード

Option Explicit Option Base 0 ' Public Sub ジオメトリー柄描画マクロ其の三()     Const GEOMLEFT = 100      '描画開始位置X     Const GEOMTOPP = 110      '      Y     '     Const GEOMCOLS = 7       '横/描画数     Const GEOMROWS = 4           '縦/描画数     '     Const GEOMPRAT = 0.75      'ポリライン倍率     Const GEOMVPIT = 35 * GEOMPRAT        '横-間隔     Const GEOMHPIT = 60 * GEOMPRAT        '縦-間隔     Const GEOMREVI = -20 * GEOMPRAT      '反転位置補正     '     Const GEOMLNCL = &HE22B8A     '線の色(Blue Violet)     Const GEOMLNWE = 1.5               '線の太さ      '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer, Mp As Integer 
0
カバー画像

【Word VBA】ジオメトリー柄描画マクロ其の二▽ソースコード

Option Explicit Option Base 0 ' Public Sub ジオメトリー柄描画マクロ其の二()     Const GEOMLEFT = 100          '描画開始位置X     Const GEOMTOPP = 110      '      Y     '     Const GEOMCOLS = 7                '横/描画数     Const GEOMROWS = 4               '縦/描画数     '     Const GEOMPRAT = 0.75            'ポリライン倍率     Const GEOMVPIT = 35 * GEOMPRAT      '横-間隔     Const GEOMHPIT = 60 * GEOMPRAT      '縦-間隔     Const GEOMREVI = -20 * GEOMPRAT     '反転位置補正     '     Const GEOMLNCL = &HE22B8A             '線の色(Blue Violet)     Const GEOMLNWE = 1.5                       '線の太さ      '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Int
0
カバー画像

【Word VBA】ジオメトリー柄描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub ジオメトリー柄描画マクロ()     Const GEOMLEFT = 100         '描画開始位置X    Const GEOMTOPP = 100   '                 Y    '     Const GEOMCOLS = 7        '横/描画数     Const GEOMROWS = 4     '縦/描画数     '     Const GEOMPRAT = 0.75                      'ポリライン倍率     Const GEOMVPIT = 34 * GEOMPRAT          '横/描画間隔     Const GEOMHPIT = 60 * GEOMPRAT          '縦/描画間隔     '     Const GEOMLNCL = &H3C14DC                 '線の色(Crimson)     Const GEOMLNWT = 1                              '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     '     Dim intDxp As Integer, intDyp As
0
3 件中 1 - 3
有料ブログの投稿方法はこちら