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

すべてのカテゴリ

100 件中 1 - 60 件表示
カバー画像

【Word VBA】撫子文様描画マクロ▽ソースコード

Option Explicit Option Base 0 Public Sub 撫子文様描画マクロ()   Const PINKLEFT = 120    '描画開始位置 X     Const PINKTOPP = 100    '             Y     Const PINKPLMG = 0.3    'ポリライン描画倍率     '     Const PINKVSPC = 50         '横-間隔     Const PINKHSPC = 50         '縦-間隔     Const PINKCOLS = 5           '横/描画数     Const PINKROWS = 4          '縦/描画数     '     Const PINKLNWT = 1            '線の太さ     Const PINKRADI = 26.1 + 8   '花びらの中心と                                                 '花の中心距離     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intCxp As Integer, intCyp As Integer     Dim intDxp As Intege
0
カバー画像

【Word VBA】乱数を使ったモンドリアン風模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 乱数を使ったモンドリアン風模様描画マクロ()     Const MODRLEFT = 90              '描画開始位置X     Const MODRTOPP = 80             '      Y     '     Const MODRWIDT = 200           '描画幅     Const MODRHEIG = 200            '描画高さ     '     Const MODRCOLS = 5               '最小マス数(横)     Const MODRROWS = 5              '最小マス数(縦)     '     Const MODRLNWE = 10             '線の太さ     '     Const MODRCLLM = 3               '色エリアの最大値    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intLnH(MODRCOLS) As Integer     Dim intLnV(MODRROWS) As Integer     Dim intRct(MODRCOLS - 1, MODRROWS - 1, 4
0
カバー画像

【Word VBA】三角形模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 三角形模様描画マクロ()     Const TANGLEFT = 110       '描画開始位置X     Const TANGTOPP = 100          '      Y     '     Const TANGOSIZ = 40          '外側三角形サイズ     Const TANGISIZ = 20       '内側三角形サイズ     Const TANGCREV = 1.5              '内側三角形補正     '     Const TANGCOLS = 10               '横/描画数     Const TANGROWS = 6               '縦/描画数     '     Const TANGLNWE = 1.5            '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intDht(1) As Integer, BlnUpD As Boolean     Dim lngCol(2) As Long, sngHpW As Single     '     lngCol(0) = RGB(1
0
カバー画像

【Word VBA】赤とんぼ描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 赤とんぼ描画マクロ()     Const RDGFLEFT = 90       '描画開始位置X     Const RDGFTOPP = 90      '      Y     '     Const RDGFVSPC = 70            '描画間隔(横)     Const RDGFHSPC = 60            '描画間隔(縦)     Const RDGFCOLS = 4              '横/描画数     Const RDGFROWS = 3            '縦/描画数     '     Const RDGFBZM1 = 0.1          'ベジェ曲線倍率(胴)     Const RDGFBZM2 = 0.1          'ベジェ曲線倍率(羽)     Const RDGFWGX1 = -14         '胴と羽の距離X     Const RDGFWGX2 = 14     Const RDGFWGY1 = 15           '胴と羽の距離Y     Const RDGFWGY2 = 21     '     Const RDGFEYX1 = -4            '胴と目玉の距離X    Const RDGFEYX2 = 4             '     Const RDGFEYY1 = -3            '胴と目玉の距離Y    Const RDGFEYRD = 2.5   
0
カバー画像

【Word VBA】菱菊描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 菱菊描画マクロ()     Const DCHRCXPS = 200          '菊の中心位置 X     Const DCHRCYPS = 180        ' Y     '     Const DCHRHLNG = 120         '花びらの長さ(長い方)     Const DCHRVLNG = 80         '花びらの長さ(短い方)     '     Const DCHRSRAD = 18                       '中央円の半径     '     Const DCHRLNWN = 2                       '描画線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim sngRnd As Single, sngAng(1) As Single     Dim intExp As Integer, intEyp As Integer     Dim intErd As Integer, intDps(11, 1) As Integer     '     '     lngCol = RGB(148, 0, 21
0
カバー画像

【Word VBA】瓢箪模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 瓢箪模様描画マクロ()     Const GOURLEFT = 100     '描画開始位置X     Const GOURTOPP = 100      '      Y     '     Const GOURSWID = 35         '描画幅     Const GOURSHEI = 45          '描画高さ     '     Const GOURMAGI = 0.1     'ベジェ描画倍率     Const GOURCOLS = 7      '横/描画数     Const GOURROWS = 4      '縦/描画数     '     Const GOURLNWE = 1              '線の太さ     Const GOURSANG = 30             '図の傾き     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol(1) As Long     Dim intDxp As Integer, intDyp As Integer     Dim sngBas(18, 1) As Single, varBez As Variant     Dim sngDat(18, 1) As
0
カバー画像

【Word VBA】サークル模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub サークル模様描画マクロ()     Const CIRCLEFT = 100        '描画開始位置X     Const CIRCTOPP = 100         '      Y     Const CIRCCOLS = 8                         '横/描画数     Const CIRCROWS = 7                        '縦/描画数     Const CIRCCONT = (CIRCCOLS * CIRCROWS)     '     Const CIRCSRAD = 5                         '中心円半径     Const CIRCCSPC = 3                         '半径刻み幅     Const CIRCCCNT = 5                         '描画円数     '     Const CIRCLNWT = 1.5                     '線の太さ     '円と円の間隔     Const CIRCVSPC = (CIRCSRAD * 2  _                           + CIRCCSPC * (CIRCCCNT))     Const CIRCHSPC = CIRCVSPC     '--------------------------------------------------
0
カバー画像

【Word VBA】芝翫縞文様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 芝翫縞文様描画マクロ()     Const SIKALEFT = 120            '描画開始位置X     Const SIKATOPP = 80           '      Y     Const SIKACWSZ = 15            '円弧の大きさ     Const SIKACHSZ = 25             '円弧の大きさ     Const SIKACIOV = 0.4          '円弧の重なり     '     Const SIKALNWE = 1.5       '線の太さ     '     Const SIKAVLGP = 3             '縦線の間隔     Const SIKAVLSP = (SIKALNWE + SIKAVLGP)     Const SIKAVSPC = (SIKAVLSP * 4)     Const SIKAVSPM = (SIKAVSPC + SIKAVLGP * 2)     '     Const SIKAROWS = 6              '縦の描画数     Const SIKACOLS = 5         '横の描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer
0
カバー画像

【Word VBA】毘沙門亀甲文様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 毘沙門亀甲文様描画マクロ()     Const BTTLLEFT = 120                '描画開始位置X     Const BTTLTOPP = 110               '      Y     '     Const BTTLPSIZ = 10                  'ピースサイズ     '     Const BTTLCOLS = 7                  '横/描画数     Const BTTLROWS = 5                '縦/描画数     '     Const BTTLLNWE = 1.5              '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intDwd As Integer, intDht As Integer     Dim sngRnd As Single, sngAng As Single     Dim sngBas(12, 1) As Single, sngPol(12, 1) As Single     D
0
カバー画像

【Word VBA】足跡描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 足跡描画マクロ()     Const FTPRLFTL = 120             '左足-描画規準位置X     Const FTPRLFTR = 200             '右足-描画規準位置X     Const FTPRTOPL = 180            '左足-描画規準位置Y     Const FTPRTOPR = 230            '右足-描画規準位置Y     Const BEZIMAGN = 0.5            'ベジェ曲線データ倍率     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intRad As Integer, intFht As Integer     Dim varBez As Variant, lngCol As Long     Dim sngBas(12, 1) As Single, sngDat(12, 1) As Single     Dim sngRnd As Single, sngSit As Single     '     'ベジェ曲線データ(足の裏)設定     varBez = Array(45, 92, 9
0
カバー画像

【Word VBA】鮫文様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 鮫文様描画マクロ()    Const SHRKLEFT = 120            '描画開始位置X     Const SHRKTOPP = 135           '      Y     '     Const SHRKFRAD = 10       '扇半径間隔     Const SHRKCONT = 5        '扇半径数     Const SHRKSWID = SHRKFRAD * SHRKCONT  '描画幅     Const SHRKSHEI = (SHRKSWID - 5)               '描画高さ     Const SHRKCOLS = 5                    '横/描画数     Const SHRKROWS = 4                   '縦/描画数     '     Const SHRKLNWE = 3                   '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim intDxp As Integer, intDyp As Integer     Dim intRad As Integer
0
カバー画像

【Word VBA】回転する六角形描画マクロ▽ソースコード

Option Explicit Option Base 0 Public Sub 回転する六角形描画マクロ()     Const HEXALEFT = 100     '描画の開始位置X     Const HEXATOPP = 90      '                   Y     Const HEXALENG = 180            '六角形の大きさ     Const HEXASTPP = 0.9              '六角形の縮小率     Const HEXAANGL = 7                '六角形の傾き角     Const HEXACONT = 25              '六角形の数     '     Const HEXALNWT = 1.5             '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, intLng As Integer     Dim lngCol As Long     '     lngCol = RGB(153, 50, 204)          '←線の色     intLng = HEXALENG \ 2     For Ip = 0 To HEXACONT - 1         With ActiveDocument.Shapes.AddShape(msoShapeHexagon,
0
カバー画像

【Word VBA】提灯描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 提灯描画マクロ()     Const PLNTLEFT = 90    '描画開始位置X     Const PLNTTOPP = 80     '      Y     '     Const PLNTSWID = 30         '描画(火袋)幅     Const PLNTSHEI = 30          '描画(火袋)高さ     '     Const PLNTRWID = 20        '描画(塗輪)幅     Const PLNTRHEI = 6           '描画(塗輪)高さ     Const PLNTVSPC = 10        '横-間隔     Const PLNTHSPC = 20        '縦-間隔     Const PLNTCOLS = 5          '横/描画数     Const PLNTROWS = 4         '縦/描画数     '     Const PLNTLNWE = 0.5       '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intWxp As Integer, lngCol(
0
カバー画像

【Word VBA】ハーリキンチェック描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub ハーリキンチェック描画マクロ()     Const HLQNLEFT = 100        '描画開始位置X     Const HLQNTOPP = 90         '      Y     '     Const HLQNWIDT = 25                      'ひし形幅     Const HLQNHEIG = 25                       'ひし形高     '     Const HLQNCOLS = 8                        '横描画数     Const HLQNROWS = 6                       '縦描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol As Long     '     lngCol = vbBlack                            '←塗りつぶし色     For Jp = 0 To HLQNROWS - 1         intDyp = HLQNTOPP + HLQNHEIG * Jp         For Ip =
0
カバー画像

【Word VBA】市松模様描画マクロ其の二▽ソースコード

Option Explicit Option Base 0 ' Public Sub 市松模様描画マクロ其の二()     Const GRIDLEFT = 100              '描画開始位置X     Const GRIDTOPP = 80             '      Y     '     Const GRIDSWID = 20               '描画幅     Const GRIDSHEI = 20              '描画高さ     '     Const GRIDCOLS = 10               '横/描画数     Const GRIDROWS = 8          '縦/描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol(1) As Long     Dim varNam(GRIDCOLS * GRIDROWS - 1) As Variant     '     lngCol(0) = vbGreen           '←塗りつぶし色1     lngCol(1) = vbBlack           '←塗りつぶし色2     For Jp = 0 To GRIDROWS - 1    
0
カバー画像

【Word VBA】平行四角形模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 平行四角形模様描画マクロ()     Const PRLLLEFT = 90        '描画開始位置X     Const PRLLTOPP = 80          '      Y     '     Const PRLLSWID = 24                     '描画幅     Const PRLLSHEI = 24                      '描画高さ     '     Const PRLLVSPC = -6                      '横-間隔     Const PRLLHSPC = 0                       '縦-間隔     Const PRLLCOLS = 10                     '横/描画数     Const PRLLROWS = 7                     '縦/描画数     '     Const PRLLLNWE = 1.5                   '線の太さ     Const PRLLANGL = 0.5                    '辺の傾き     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer,
0
カバー画像

【Word VBA】フック型模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub フック型模様描画マクロ()     Const HOOKLEFT = 100            '描画開始位置X     Const HOOKTOPP = 100       '      Y     '     Const HOOKPMAG = 5                  'ポリライン倍率     '     Const HOOKSWID = HOOKPMAG   '描画幅     Const HOOKSHEI = HOOKPMAG * 6  '描画高さ     '     Const HOOKVSPC = HOOKPMAG * 1.5    '横-間隔     Const HOOKHSPC = 0                            '縦-間隔     Const HOOKCOLS = 15                          '横/描画数     Const HOOKROWS = 5                          '縦/描画数     '     Const HOOKLNWE = 3                          '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer,
0
カバー画像

【Word VBA】円と四角形模様描画マクロ▽ソースコード

Option Explicit Option Base 0 Public Sub 円と四角形模様描画マクロ()     Const GEOMLEFT = 90                 '描画開始位置X     Const GEOMTOPP = 80                '      Y     '     Const GEOMSWID = 30                '描画幅     Const GEOMSHEI = GEOMSWID    '描画高さ     '     Const GEOMDMT1 = GEOMSWID * 0.8     '円(大)直径     Const GEOMDMT2 = GEOMSWID * 0.5     '円(小)直径     '     Const GEOMVSPC = 0                   '横-間隔     Const GEOMHSPC = 0                   '縦-間隔     Const GEOMCOLS = 6                   '横/描画数     Const GEOMROWS = 5                  '縦/描画数     '     Const GEOMLNWE = 1                  '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As
0
カバー画像

【Word VBA】穴あき四角形模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 穴あき四角形模様描画マクロ()     Const FRAMLEFT = 80                    '描画開始位置X     Const FRAMTOPP = 90                   '      Y     '     Const FRAMSWID = 32                   '描画幅     Const FRAMSHEI = 24                    '描画高さ     '     Const FRAMVSPC = 10                    '横-間隔     Const FRAMHSPC = 10                    '縦-間隔     Const FRAMCOLS = 6                      '横/描画数     Const FRAMROWS = 5                     '縦/描画数     '     Const FRAMHOPS = 0.25                  '穴比率から     Const FRAMHOPE = 0.45                  '穴比率まで     '     Const FRAMANGL = -25                   '傾き     '-------------------------------------------------------------------
0
カバー画像

【Word VBA】角丸四角形模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 角丸四角形模様描画マクロ()     Const RDCNLEFT = 90    '描画開始位置X     Const RDCNTOPP = 80   '      Y     '     Const RDCNSWID = 36   '図形幅     Const RDCNSHEI = 30    '図形高さ     '     Const RDCNVSPC = 8     '横-間隔     Const RDCNHSPC = -12    '縦-間隔     Const RDCNCOLS = 6     '横-描画数     Const RDCNROWS = 8    '縦-描画数     '     Const RDCNLNWE = 1.5   '線の太さ     Const RDCNADJU = 0.33  '角の丸み度     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol As Long     '     lngCol = RGB(255, 99, 71)            '←線色     For Jp = 0 To RDCNROWS - 1         intDyp = R
0
カバー画像

【Word VBA】丸く並ぶ円描画マクロ其の二▽ソースコード

Option Explicit Option Base 0 Public Sub 丸く並ぶ円描画マクロ其の二()     Const CIRCXPOS = 180               '円の中心位置 X     Const CIRCYPOS = 180               '                     Y     Const CIRCRADI = 50                 '円の半径     '     Const SATECONT = 12                '衛星円の数     '     Const CIRCLNWE = 1.5               '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, intAng As Integer     Dim intXps As Integer, intYps As Integer     Dim dblRnd As Double, lngCol As Long     '     lngCol = RGB(220, 20, 60)                 '←線色     '*中心円描画     With ActiveDocument.Shapes.AddShape(msoShapeOval, _          CIRCXPOS - CIRCRADI, CIRCYPOS - CIRCRADI
0
カバー画像

【Word VBA】十字繋ぎ模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 十字繋ぎ模様描画マクロ()     Const CROSLEFT = 160             '描画開始位置X     Const CROSTOPP = 80              '      Y     '     Const CROSSIZE = 36               '十字のサイズ     '     Const CROSCOLS = 5               '横描画数(奇数)     Const CROSROWS = 6              '縦描画数    '     Const CROSLNLN = 2               '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intSxp As Integer, intSyp As Integer     Dim intSzT As Integer, lngCol(1) As Long     '     '     lngCol(0) = RGB(255, 228, 225)         '←塗りつぶし色     lngCol(1) = vbRed                 
0
カバー画像

【Word VBA】ルーローの五角形描画マクロ▽ソースコード

Option Explicit Option Base 0 Public Sub ルーローの五角形描画マクロ()     Const REULCXP = 160                  '描画中心位置X     Const REULCYP = 150                  '                  Y     Const REULRAD = 70                   '径     '     Const REULLWE = 3.5                  '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, dblRd As Double     Dim intXp As Integer, intYp As Integer     Dim intRd As Integer, lngCl As Long     '     lngCl = RGB(34, 139, 34)   '←線色     dblRd = (4 * Atn(1)) / 180     intRd = CInt(REULRAD * Sin(dblRd * 72) * 2)     For Ip = 0 To 4         intXp = CInt(REULCXP + REULRAD * Sin(dblRd * 72 * Ip))         intYp = CInt(REULCY
0
カバー画像

【Word VBA】エプロンチェック描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub エプロンチェック描画マクロ()    Const APROLEFT = 100                  '描画開始位置X    Const APROTOPP = 100                 '      Y    '    Const APROHWID = 20                  '横ライン幅    Const APROVWID = 20                  '縦ライン幅    Const APROHGAP = 20                  '横間隔    Const APROVGAP = 20                  '縦間隔    '    Const APROCOLS = 6                   '横描画数    Const APROROWS = 5                  '縦描画数    '---------------------------------------------------------------------------    Dim Ip As Integer, Jp As Integer    Dim Kp As Integer    Dim intDxp As Integer, intDyp As Integer    Dim lngCol(2) As Long    '    lngCol(0) = vbWhite                   
0
カバー画像

【Word VBA】歯車模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 歯車模様描画マクロ()    Const GEARLEFT = 100      '描画開始位置X    Const GEARTOPP = 80             '      Y    '    Const GEARSIZ1 = 34        '歯車1直径    Const GEARSIZ2 = 25                    '歯車2    Const GEARSIZ3 = 25                    '歯車3    '    Const GEARHMAG = 15                  '描画間隔(横)    Const GEARVMAG = 15                  '描画間隔(縦)    '    Const GEARHGAP = 16                  '歯車2と歯車3の距離    Const GEARVGAP = 16    Const GEARCOLS = 5                    '横描画数    Const GEARROWS = 4                   '縦描画数    '    Const GEARLNWE = 1                   '輪郭線の太さ    Const GEARADJ1 = 0.15                '歯車の歯高さ    '----------------------------------------------
0
カバー画像

【Word VBA】分銅文様描画マクロ▽ソースコード

Option Explicit Option Base 0 Public Sub 分銅文様描画マクロ()     Const WEIGLEFT = 100                '描画開始位置X     Const WEIGTOPP = 90                 '      Y     Const WEIGLRAD = 30                 'サイズ     '     Const WEIGROWS = 5                 '描画数(縦)     Const WEIGCOLS = 12                '描画数(横)     '     Const WEIGLNWE = 2                 '描画線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim intCxp As Integer, intCyp As Integer     '     lngCol = RGB(0, 139, 139)           '←線色     For Jp = 0 To WEIGROWS - 1         For Ip = 0 To WEIGCOLS - 1             intCyp = WEIGTOPP + (
0
カバー画像

【Word VBA】雲立涌文様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 雲立涌文様描画マクロ()     Const CLTWLEFT = 100                  '描画開始位置X     Const CLTWTOPP = 80                   '      Y     '     Const CLTWUNIT = 40                   '波線周期長さ     Const CLTWAMPL = 20                  '波線周期振れ     Const CLTWYDVT = 3                    '振れ位置補正     '     Const CLTWBETW = 30                 '波線間隔     Const CLTWCLWD = 16                 '雲の幅     '     Const CLTWCOLS = 7                   '横描画数     Const CLTWROWS = 5                  '縦描画数     '     Const CLTWLNW1 = 2                  '波線の太さ     Const CLTWLNW2 = 1.5               '雲の線の太さ     '---------------------------------------------------------------------------     Dim I
0
カバー画像

【Word VBA】雪輪文様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 雪輪文様描画マクロ()     Const SNOWLEFT = 90             '描画開始位置X     Const SNOWTOPP = 90            '      Y     '     Const SNOWHZSP = 70        '水平間隔     Const SNOWVTSP = 70                  '垂直間隔     '     Const SNOWCOLS = 3                   '横 描画数     Const SNOWROWS = 3                  '縦 描画数     '     Const SNOWLNWT = 1                  '線の太さ     '     Const SNOWSZ1 = 20                    '雪輪半径1     Const SNOWSZ2 = 10                    '雪輪半径2     Const SNOWGAP = 3                     '雪輪の隙間     '     Const SNOWARCA = 40                 '円弧描画角     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp
0
カバー画像

【Word VBA】モロッカン柄描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub モロッカン柄描画マクロ()     Const MOROLEFT = 100       '描画開始位置X     Const MOROTOPP = 70            '      Y     '     Const MORORADI = 12        '半円の半径     Const MOROSTLN = 6                     '直線の長さ     Const MOROCOLS = 8                    '横描画数     Const MOROROWS = 3                   '縦描画数     '     Const MOROLNWE = 2                   '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol As Long     '     lngCol = RGB(47, 79, 79)              '←線色     For Ip = 0 To MOROCOLS - 1         intDxp = MOROLEFT + (MORORADI * 2)
0
カバー画像

【Word VBA】一の字繋ぎ文様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 一の字繋ぎ文様描画マクロ()     Const BRCKLEFT = 80         '描画開始位置X     Const BRCKTOPP = 80          '      Y     '     Const BRCKWIDT = 40                       '矩形幅     '矩形高さ = 矩形幅の半分     Const BRCKHEIG = (BRCKWIDT / 2)     '     Const BRCKCOLS = 6                         '横 描画数     Const BRCKROWS = 8                        '縦 描画数    '     Const BRCKJNWD = 3                        '目地幅     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intWid As Integer     Dim lngCol(1) As Long     '     lngCol(0) = RGB(178, 34, 34)                '←矩形の色  
0
カバー画像

【Word VBA】毛卍文模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 毛卍文模様描画マクロ()     Const HRSWLEFT = 100               '描画開始位置X     Const HRSWTOPP = 120              '      Y     '     Const HRSWHZSP = 25                '水平間隔     Const HRSWVTSP = 70                '垂直間隔     Const HRSWCOLS = 4                 '横 描画数     Const HRSWROWS = 6                '縦 描画数     '     Const HRSWPTCN = 15               '花びら枚数     Const HRSWRADI = 10               '輪の半径     Const HRSWMOWD = 6              '花びらの幅     Const HRSWMOHT = 12             '花びらの長さ     Const HRSWMORT = 0.35           '曲がり比率     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Int
0
カバー画像

【Word VBA】三つ巴模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 三つ巴模様描画マクロ()     Const TOMOLEFT = 90                     '描画開始位置X     Const TOMOTOPP = 80                    '      Y     '     Const TOMOSIZE = 12                    '内側円直径     Const TOMORADI = TOMOSIZE / 2  '内側円半径     Const TOMOHZSP = 25                   '水平間隔     Const TOMOVTSP = 70                   '垂直間隔     Const TOMOCOLS = 4                    '横 描画数     Const TOMOROWS = 6                   '縦 描画数     '     Const TOMOLNWE = 1                    '線の太さ    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim intCxp As Integer, intCyp As In
0
カバー画像

【Word VBA】六つ手卍文様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 六つ手卍文様描画マクロ()     Const SIXHLEFT = 160             '描画開始位置X     Const SIXHTOPP = 80          '      Y     '     Const SIZHMGNI = 10                        'ポリライン描画倍率     '     Const SIXHCOLS = 7                          '横描画数     Const SIXHROWS = 4                        '縦描画数     Const SIXHLNWE = 2                        '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intMxp As Integer, intMyp As Integer     Dim sngBas(9, 1), sngDat(9, 1) As Single     Dim sngTmp(1, 9, 1) As Single, db
0
カバー画像

【Word VBA】蚊絣文様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 蚊絣文様描画マクロ()     Const MOKCANLF = 90                         'キャンバス位置X     Const MOKCANTP = 80                         '                     Y     Const MOKCANWD = 300                     'キャンバス幅     Const MOKCANHT = 200                      'キャンバス高さ     '     Const MOKALEFT = 10                         '蚊絣描画開始位置X     Const MOKATOPP = 15                        '        Y     Const MOKASIZE = 30                         '十字サイズ     Const MOKAHZSP = 20                        '水平間隔     Const MOKAVTSP = 60                        '垂直間隔     '     Const MOKACOLS = 5                         '横 描画数     Const MOKAROWS = 8                       '縦 描画数     '
0
カバー画像

【Word VBA】角繋ぎ文様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 角繋ぎ文様描画マクロ()     Const CRNRLEFT = 100       '描画開始位置X     Const CRNRTOPP = 100          '      Y     '     Const CRNRLWID = 10            'L字幅     Const CRNRLHEI = 20           'L字高さ     Const CRNRCOLS = 5                      '横描画数     Const CRNRROWS = 6                     '縦描画数     '     Const CRNRLNWE = 1                     '線の太さ     Const CRNRCHIP = 0.4                    'L字欠け率     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim intCxp As Integer, intCyp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim dblThe As
0
カバー画像

【Word VBA】井桁卍文様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 井桁卍文様描画マクロ()     Const DBCRLEFT = 100      '描画開始位置X     Const DBCRTOPP = 80       '                  Y     '     Const DBCRMAGN = 6                  'ポリライン倍率     Const DBCRCOLS = 5                   '横描画数     Const DBCRROWS = 3                 '縦描画数     '     Const DBCRLNWE = 2                 '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim varPos As Variant, lngCol As Long     Dim sngBas() As Single, sngDat() As Single     '     '*ポリラインデータ元データ     varPos = Array(1, 3, 1, 5, 3, 5, 3, 3, 5, 3, 5, _    
0
カバー画像

【Word VBA】千鳥格子描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 千鳥格子描画マクロ()     Const HOTOLEFT = 100       '描画開始位置X     Const HOTOTOPP = 120        '                  Y     Const HOTOMAGN = 10                   'ポリライン倍率     Const HOTOCOLS = 6                      '横描画数     Const HOTOROWS = 4                    '縦描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim varPos As Variant, lngCol As Long     Dim sngBas() As Single, sngDat() As Single     '     '     '*ポリラインデータ元データ     varPos = Array(0, -2, -1, -2, -3, 0, -2, 0, -1, -1, -1, 0, _     0, 0, -1, 1, -1, 2, 1, 0, 1,
0
カバー画像

【Word VBA】雷紋模様描画マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub 雷紋模様描画マクロ()     Const THUNLEFT = 100         '描画開始位置X    Const THUNTOPP = 80          '        Y      Const THUNMAGN = 2               '描画倍率     Const THUNCOLS = 3                            '横描画数     Const THUNROWS = 5                           '縦描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim varPos As Variant, lngCol As Long     Dim sngBas() As Single, sngDat() As Single     '     varPos = Array(7, 7, 8, 7, 8, 5, 5, 5, 5, 9, 10, 9, _                   10, 3, 3, 3, 3, 11, 12, 11, 12, 1, 1, _          
0
カバー画像

【Word VBA】ビンゴシート作成マクロ▽ソースコード

Option Explicit Option Base 0 ' Public Sub ビンゴシート作成マクロ()      Const BINFNTNA = "MS 明朝"           'フォント名      Const BINFNTSZ = 18                       'フォントサイズ      Const BINCELWD = 56                      'テーブルセル幅      '---------------------------------------------------------------------------      Dim Ip As Integer, Jp As Integer, Kp As Integer      Dim Lp As Integer      Dim intMat(4, 4) As Integer, intNum(19) As Integer      Dim tblBng As Table      '      '*ビンゴデータ作成       Randomize Timer       For Ip = 0 To 20 - 1           intNum(Ip) = Ip + 1       Next Ip       For Jp = 0 To 5 - 1           For Ip = 0 To 20 - 1               Kp = Int(Rnd(1) * 20)               If Ip = Kp Then Kp = (I
0
カバー画像

【Word VBA】唐草文様描画マクロ▽ソースコード

Option Explicit Option Base 0 Public Sub 唐草文様描画マクロ()     Const ARACANLF = 80    'キャンバス位置X     Const ARACANTP = 100  '                     Y     Const ARACANWD = 280  'キャンバス幅     Const ARACANHT = 200  'キャンバス高さ     '     Const ARABZMAG = 0.15     'ベジェ曲線倍率     '     Const ARABZLFT = 20  'ベジェ曲線描画開始位置X     Const ARABZTOP = 25  '           Y     '     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,
0
カバー画像

【Word VBA】古銭風模様描画マクロ▽ソースコード

Option Explicit Option Base 0 Public Sub 古銭風模様描画マクロ()     Const ECOILEFT = 120                    '描画開始位置X     Const ECOITOPP = 100                   '      Y     '     Const ECOICSIZ = 60                      '古銭のサイズ     Const ECOIOTWE = 2                      '外形線の太さ     Const ECOIMDWE = 2     Const ECOISMLN = (ECOIOTWE + ECOIMDWE - 1)     Const ECOIHSIZ = 18                      '穴の大きさ     Const ECOIHRPS = (ECOICSIZ - ECOIHSIZ) / 2     Const ECOIVSPC = 10                     '横の間隔     Const ECOIHSPC = 10                     '縦の間隔     '     Const ECOICOLS = 3                       '横描画数     Const ECOIROWS = 2                     '縦描画数     '--------------------------------------------------
0
カバー画像

【Word VBA】武田菱文様描画マクロ▽ソースコード

Option Explicit Option Base 0 Public Sub 武田菱文様描画マクロ()     Const TKRHLEFT = 150    '描画開始位置X     Const TKRHTOPP = 120    '      Y     '     Const TKRHSMWD = 30    '内側ひし形幅     Const TKRHHPAW = 0.6    'ひし形 高さ/幅     Const TKRHSMGP = 3     Const TKRHMDWD = TKRHSMWD * 3  '中間ひし形幅     Const TKRHOTWD = TKRHSMWD * 4  '外側ひし形幅     '     Const TKRHMDWE = 4     '中間ひし形線の太さ     Const TKRHOTWE = 6     '外側ひし形線の太さ     '     Const TKRHROWS = 5     '縦描画数     Const TKRHCOLS = 2     '横描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intCxp As Integer, intCyp As Integer     Dim intDxp As Integer, intDyp As Int
0
カバー画像

【Word VBA】フォント一覧表作成マクロ▽ソースコード

Option Explicit Option Base 0 Public Sub フォント一覧表作成マクロ()     Const FONTDFNAM = "MS 明朝"     'フォント名フォント     Const FONTDSIZE = 14           'フォントサイズ     Const FONTSMCHR = "ABC123ゆういち"   'サンプル文字     '---------------------------------------------------------------------------     Dim Ip As Integer     Dim tblFnt As Table, rowFnt As row     '*既存の表を削除     For Ip = ActiveDocument.Tables.Count To 1 Step -1         ActiveDocument.Tables.Item(Ip).Delete     Next Ip     '*表作成     Set tblFnt = ActiveDocument.Tables.Add( _                  Range:=ActiveDocument.Range(Start:=0, End:=0), _                  NumRows:=1, NumColumns:=2)     tblFnt.Style = "表 (格子)"     '*見出し     tblFnt.Cell(1, 1).Range.Text = "フォ
0
カバー画像

【Excel/VBA/Selenium】Webページに指定要素が存在するかチェックする

みなさんこんにちは。イプシロンです。ECサイトなど商品の在庫状況によって、サイト内の指定要素が変更される場合があります。そのようなサイトに遭遇した際、スクレイピングする際に、webページに指定要素が存在するかをチェックすなければエラーになりますので、本日はその対処法について書いていきます。結論指定要素が存在するかどうかを判断して、分岐処理をすれば問題ありませんWebページに指定要素が存在するかチェックするサンプルコード=================================Public Sub 指定要素の存在チェック()     Dim driver As New Selenium.WebDriver     Dim myBy As New By     Dim sURL As String  sURL = "スクレイピングしたいサイトのURLを入力"         driver.Start "chrome"     driver.Get sURL         '■要素が存在していればTrue/存在しなければFalse     Debug.Print driver.IsElementPresent(myBy.ID("対象要素のIDを入力"))     '■要素が存在してれば処理を行う     If driver.IsElementPresent(myBy.ID("対象要素のIDを入力")) Then         '存在していた場合の処理     Else         '存在していない場合の処理     End If         '■上記は
0
カバー画像

【Word VBA】扇子描画マクロ▽ソースコード

Option Explicit Option Base 0 Public Sub 扇子描画マクロ()     Const FFANCXP = 230     '扇子要位置     Const FFANCYP = 210     Const FFANHRD = 150       '扇子外径     Const FFANLRD = 50       '扇子内径     Const FFANBWD = 2                '扇子骨幅     '     Const FFANHVS = 6                 '扇外側谷の差     Const FFANLVS = 3                 '扇内側谷の差     '     Const FFANOCN = 16              '扇の枚数 ×2     Const FFANOAN = 100            '開いた角度     '     Const FFANERV = 0.8             '端の骨の位置補正     Const FFANESZ = 2.8             '端の骨の長さ補正     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer