絞り込み条件を変更する
検索条件を絞り込む
すべてのカテゴリ
新着有料ブログ
技術士第二次試験（建設部門）令和６年度 論文補助...
学び
1,500円
戦士よ、立ち...
2024/04/19
【労務のプロが解決！相談箱Q&A】数時間単位の勤...
法律・税務・士業全般
500円
white_...
2024/04/19
魚座
占い
500円
占い女神るあ
2024/04/19
水瓶座
占い
500円
占い女神るあ
2024/04/19
山羊座
占い
500円
占い女神るあ
2024/04/19
射手座
占い
500円
占い女神るあ
2024/04/19
蠍座
占い
500円
占い女神るあ
2024/04/19
天秤座
占い
500円
占い女神るあ
2024/04/19
【乙女座×蠍座】5月の恋愛相性
占い
500円
広瀬可菜（タ...
2024/04/19
乙女座
占い
500円
占い女神るあ
2024/04/19
獅子座
占い
500円
占い女神るあ
2024/04/19
双子座
占い
500円
占い女神るあ
2024/04/19
213 件中 1 -
60 件表示
【Word VBA】クロスステッチ描画マクロ▽ソースコード
Option Explicit
Option Base 0
Const CONSTPAI As Double = 3.14159265358979 'π
'
Const STCHSXPT As Integer = 300 '描画開始位置Ｘ
Const STCHSYPT As Integer = 150 ' Ｙ
Const STCHLENG As Integer = 5 '辺の長さ
Const STCHORDR As Integer = 3 '次数
Const STCHLNCL As Long = &H4763FF '線の色(Tomoto)
Const STCHLNWT As Single = 1 '線の太さ
'---------------------------------------------------------------
Public p_intDxp As Integer '描画位置Ｘ(変数)
Public p_intDyp As Integer ' Ｙ(変数)
Public p_intAng As Integer '描画角度 (変数)
'*-
0
【Word VBA】ジオメトリー柄描画マクロ其の三▽ソースコード
Option Explicit
Option Base 0
'
Public Sub ジオメトリー柄描画マクロ其の三()
Const GEOMLEFT = 100 '描画開始位置Ｘ
Const GEOMTOPP = 110 ' Ｙ
'
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
'
Const CONSTPAI As Double = 3.14159265358979 'π
'
Const COCHSXPT As Integer = 300 '描画開始位置Ｘ
Const COCHSYPT As Integer = 260 ' Ｙ
Const COCHLENG As Integer = 8 '辺の長さ
Const COCHORDR As Integer = 3 '次数
Const COCHLNCL As Long = &H578B2E '線の色(SeaGreen)
Const COCHLNWT As Single = 1.5 '線の太さ
'---------------------------------------------------------------
Public p_intDxp As Integer '描画位置Ｘ(変数)
Public p_intDyp As Integer ' Ｙ(変数)
Public p_intAng As Integer '描
0
【Word VBA】ジオメトリー柄描画マクロ其の二▽ソースコード
Option Explicit
Option Base 0
'
Public Sub ジオメトリー柄描画マクロ其の二()
Const GEOMLEFT = 100 '描画開始位置Ｘ
Const GEOMTOPP = 110 ' Ｙ
'
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
'
Const CONSTPAI As Double = 3.14159265358979 'π
'
Const CCCCSXPT As Integer = 200 '描画開始位置Ｘ
Const CCCCSYPT As Integer = 135 ' Ｙ
Const CCCCLENG As Integer = 4 '最小マス一辺の長さ
Const CCCCORDR As Integer = 10 '次数
Const CCCCLNCL As Long = &H3C14DC '線の色(Crimson)
Const CCCCLNWT As Single = 1 '線の太さ
'---------------------------------------------------------------
Public p_intDxp As Integer '描画位置Ｘ(変数)
Public p_intDyp As Integer ' Ｙ(変数)
Public p_intAng As Integer '描
0
【Word VBA】ジオメトリー柄描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub ジオメトリー柄描画マクロ()
Const GEOMLEFT = 100 '描画開始位置Ｘ Const GEOMTOPP = 100 ' Ｙ '
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
【Word VBA】ドラゴン曲線描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Const CONSTPAI As Double = 3.14159265358979 'π
'
Const DRGNSXPT As Integer = 110 '描画開始位置Ｘ
Const DRGNSYPT As Integer = 125 ' Ｙ
Const DRGNLENG As Integer = 5 '辺の長さ
Const DRGNORDR As Integer = 10 '次数
Const DRGNLNCL As Long = &H701919 '線の色(濃紺)
Const DRGNLNWT As Single = 1 '線の太さ
'---------------------------------------------------------------
Public p_intDxp As Integer '描画位置Ｘ(変数)
Public p_intDyp As Integer ' Ｙ(変数)
Public p_intAng As Integer '描画角度 (変数)
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Public Sub ドラゴン曲線描画マクロ()
'
p_intDxp = DRGN
0
【Word VBA】シェルピンスキー曲線描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Const CNS_PAI As Double = 3.14159265358979 'π
'
Const SIERCXPT As Integer = 250 '描画開始位置Ｘ
Const SIERCYPT As Integer = 250 ' Ｙ
Const SIERLENG As Integer = 10 '辺の長さ
Const SIERORDR As Integer = 3 '次数
'
Const SIERLNCL As Long = 2263842 '線の色(緑)Const SIERLNWT As Single = 1.5 '線の太さ
'---------------------------------------------------------------------------
Public p_intDxp As Integer '描画位置Ｘ(変数)
Public p_intDyp As Integer ' Ｙ(変数)
Public p_intAng As Integer '描画角度
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*Public Sub シェルピンスキー曲線描画マクロ() 'Wac?aw Sierpi?
0
【Word VBA】ペイズリー柄描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Const PAISLEFT = -80 '描画開始位置Ｘ
Const PAISTOPP = 10 ' Ｙ
'
Const PAISCOLS = 5 '横/描画数
Const PAISROWS = 3 '縦/描画数
'
Const PAISVPIT = 45 '横/描画間隔
Const PAISHPIT = 60 '縦/描画間隔
Const PAISBZMG = 0.5 '描画倍率'
Const PAISLNWT = 1.5 '線の太さ
Const PAISLNCL = &H696969 '線、塗りつぶしの色
'-------------------------------------------------------------------------------
Dim varShaNa(0 To 4) As Variant 'グループ化のための名前格納エリア
''Public Sub ペイズリー柄描画マクロ() Dim Ip As Integer, Jp As Integer
Dim intDxp As Integer, intDyp As Integer, varBezi As Variant
Dim sngBBs1() As Single, sngBBs2() As Single, sngBBs3()
0
【Word VBA】福井県地図描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 福井県地図描画マクロ()
'地理データファイル名
Const MAPDATFN = "N03-11A-2K_18.txt"
'
'国土数値情報ダウンロードサイトより
' 'TOP> 国土数値情報>行政界・海岸線データ
'「N03-11A-18-01.0a.zip」を解凍するとある。
'それを、この文書ファイルと同じフォルダーに置く。
'
'なお、(18）は福井県で、他の都道府県の場合は、
'その番号が違う。
'
Const MAPDTMAX = 20000 '最大データ数
Const MAPDRATE = 250 '描画倍率
'
Const MAPDLEFT = 80 '描画左上位置(X)
Const MAPDTOPP = 70 ' (Y)
'
Const MAPDLNCL = 9109504 '線の色(紺)
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer, Kp As Integer
Dim Lp As Long, Mp As Long, Np As
0
【Word VBA】ヒルベルト曲線描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Const cns_intLnLn = 10 '描画線の長さ(定数)
Public p_intCptX As Integer '描画位置Ｘ(変数)
Public p_intCptY As Integer ' Ｙ(変数)
Public p_intCAng As Integer '描画方向 (変数)
Public Sub ヒルベルト曲線描画マクロ()
Const HLBTLEFT = 100 '描画開始位置Ｘ
Const HLBTTOPP = 220 ' Ｙ
'
Const HLBTORDR = 4 '次数
'
p_intCptX = HLBTLEFT
p_intCptY = HLBTTOPP: p_intCAng = 0
Call Sヒルベルト曲線描画マクロ_再帰(HLBTORDR, 90)
End Sub
Public Sub Sヒルベルト曲線描画マクロ_再帰(pintNo As Integer, pintAn As Integer)
Const HLBTLCOL = &H4763FF '線の色(TOMATO)
Const HLBTLWEI = 1.5 '線の太さ
'----------------------------------------------------
0
【Word VBA】簡易文書解析マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 簡易文書解析マクロ()
Dim Ip As Integer, intDcn() As Integer
Dim varKwd As Variant, strMsg As String
'
'キーワード設定
varKwd = Array("", "、", "。", "日本", "国民")
ReDim intDcn(UBound(varKwd, 1))
'
'カウンタークリア
For Ip = LBound(intDcn, 1) To UBound(intDcn, 1)
intDcn(Ip) = 0
Next Ip
'
With ActiveDocument
'*総文字数取得
intDcn(0) = .Range.ComputeStatistics(wdStatisticCharacters)
'*キーワードの出現数取得
For Ip = 1 To UBound(intDcn, 1)
With .Range(0, 0).Find
.MatchFuzzy = False
.MatchWildcards = True
.Text = CStr(varKwd(Ip))
Do
0
【Word VBA】樹木曲線描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 樹木曲線描画マクロ()
Const TREESTAX = 200 '描画開始位置Ｘ
Const TREESTAY = 300 ' Ｙ
Const TREESTAL = 50 '幹の長さ
Const TREEBRAN = 5 '枝分かれ回数
'---------------------------------------------------------------------------
Dim intBp(1) As Integer
'
intBp(0) = TREESTAX: intBp(1) = TREESTAY
樹木曲線描画_再帰 TREEBRAN, intBp(), TREESTAL, 90
End Sub
'============================================Public Sub 樹木曲線描画_再帰(intNo As Integer, intCp() As Integer, _ intLn As Integer, sngAn As Single)
Const TREEPAIV = 3.14159265358979 'π
Const TREESITA = (T
0
現役PCインストラクターのワンポイントブログ♪ショートカットキーはせめてこの５つを覚えよう
お久しぶりです、ほしのひろです💦少し前に転職をいたしまして、バタバタしておりました！少し落ち着いてきたので、ブログ再開します。久しぶりということもあるので、今回は仕事に役立つお話にします。仕事でパソコンを使う上で大事なのが、効率よく、しかも正確にこなすことです。そこで、覚えておくと良いのがショートカットキー。ショートカットキーというのは、通常なら「ファイルを開く」ボタンをクリックしたり「コピー」ボタンをクリックしたりとマウスを使った操作が多いのですが、それをキーボードの決まったキーを押すことで素早く操作できるというもの。「ショートカット」とは英語で「近道」という意味があり、「目的の操作を少しでも早く行える」ということですね。ショートカットキーは沢山あるので、特にショートカットキーに慣れていない初心者の方はこの5つを覚えていただくと良いと思います。・Ctrlキー＋Sキー → 上書き保存・Ctrlキー＋Cキー → コピー・Ctrlキー＋Xキー → 切り取り（移動）・Ctrlキー＋Vキー → 貼り付け・Ctrlキー＋Pキー → 印刷わざわざマウスに持ち替えて、ボタンの位置を探しながらクリックするよりも、キーボードで文字入力をしながら、ササっと操作が出来るのが何よりのメリット。どれもよく使う機能ばかりなので、まずはこの5つから覚えて、徐々に色んなショートカットキーを覚えると良いと思いますよ♪それでは、今日も最後まで読んでいただき有難うございました！
0
【Word VBA】二重円模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 二重円模様描画マクロ()
Const DOCRLEFT = 80 '描画開始位置Ｘ
Const DOCRTOPP = 80 ' Ｙ
'
Const DOCRCOLS = 7 '横/描画数(奇数)
Const DOCRROWS = 7 '縦/描画数(奇数)
'
Const DOCRCOLH = ((DOCRCOLS - 1) / 2) 'Half Const DOCRROWH = ((DOCRROWS - 1) / 2)
'
Const DOCRDMT1 = 30 '大きな円の直径
Const DOCRRAD1 = (DOCRDMT1 / 2)
Const DOCRDMT2 = 18 '小さな円の直径
Const DOCRRAD2 = (DOCRDMT2 / 2)
Const DOCRDIFF = (DOCRRAD1 - DOCRRAD2)
'
Const DOCRLNCL = &H45FF '線の色(OrangeRed) Const DOCRLNWE = 1 '線の太さ
'---------------------------------------------------------------------
0
【Word VBA】直線並ぶ模様描画マクロ其の二▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 直線並ぶ模様描画マクロ其の二()
Const LNUPCTRX = 190 '描画中心位置Ｘ
Const LNUPCTRY = 180 ' Ｙ
'
Const LNUPRADI = 100 '図形の半径
Const LNUPDVCN = 10 '線描画 本数
Const LNUPSTEP = (LNUPRADI / LNUPDVCN)
'
Const LNUPLNCL = &H82004B '線の色(紫色)
Const LNUPLNWE = 1# '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim intSxp As Integer, intSyp As Integer
Dim intExp As Integer, intEyp As Integer
Dim sngSit As Single
'
'
sngSit = (Atn(1) / 45) * (360 / 6)
For Ip = 0 To 5
For Jp = 1 To LNUPDVCN
0
【Word VBA】十二角形模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 十二角形模様描画マクロ()
Const DODECTRX = 200 '描画中心位置Ｘ
Const DODECTRY = 180 ' Ｙ
'
Const DODERADI = 100 '十二角形半径
Const DODEDVCN = 10 '線描画 本数
Const DODESTEP = (DODERADI / DODEDVCN)
'
Const DODELNCL = &H8B8B00 '線の色(LightCyan)
Const DODELNWE = 1 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim intSxp As Integer, intSyp As Integer
Dim intExp As Integer, intEyp As Integer
Dim sngSit As Single
'
'
sngSit = (Atn(1) / 45) * (360 / 12)
For Ip = 0 To 11
intSxp = DODERADI * Cos(
0
【Word VBA】半円組合せ模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 半円組合せ模様描画マクロ()
Const SMCRCTRX = 220 '描画開始位置Ｘ
Const SMCRCTRY = 210 ' Ｙ
Const SMCRRADI = 120 '描画半径
'
Const SMCRFICL = &H9314FF '描画色(DeepPink)
'---------------------------------------------------------------------------
Dim Ip As Integer
Dim intSxp(2) As Integer, intSyp(2) As Integer
Dim intSan As Integer
'
'
For Ip = 0 To 3
Select Case Ip
Case 0: intSxp(0) = SMCRCTRX - SMCRRADI / 2
intSyp(0) = SMCRCTRY - SMCRRADI
intSxp(1) = SMCRCTRX - SMCRRADI / 4
intSyp(1) = SMCRCTRY - SMCRRADI
0
【Word VBA】七曜カレンダー作成マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 七曜カレンダー作成マクロ()
'*********************
Const CALENYEAR = 2023 '年（西暦）
Const CALENMONT = 10 '月
'*********************
'テーブルセル
Const CALENCLWD = 48 '幅
Const CALENCLH1 = 30 '高さ1(曜日) Const CALENCLH2 = 50 '高さ2
'フォント
Const CALEFNTNA = "ＭＳ ゴシック" '名前
Const CALEFNTS1 = 12 'サイズ1(曜日) Const CALEFNTS2 = 24 'サイス2(1～) Const CALEFNTS3 = 16 'サイス3(24/31) '---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim tblCale As Table
Dim intCl As Integer
Dim intDy
0
【Word VBA】かもめ描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub かもめ描画マクロ()
Const GULLCALF = 75 'キャンバス位置Ｘ
Const GULLCATP = 50 ' Ｙ
Const GULLCAWD = 360 'キャンバス幅
Const GULLCAHT = 240 'キャンバス高さ
Const GULLCABC = &HFF901E '背景色
'
Const GULLBZM1 = 2 'ベジェ描画倍率1
Const GULLBZM2 = 3 'ベジェ描画倍率2
'
Const GULLROWS = 4 '描画数（縦）
Const GULLCOLS = 4 '描画数（横）
Const CULLCONT = GULLROWS * GULLCOLS
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim intDxp As Integer, intDyp As Integer
'
Dim shpCanv As Shape
Dim varBezi As Variant
0
【Word VBA】へのへのもへじ描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub へのへのもへじ描画マクロ()
Const HENOCNXP = 150 '描画中心位置（Ｘ）
Const HENOCNYP = 150 ' （Ｙ）
'
Const HENOBHEH = 5 '<へ>ベジェ横倍率
Const HENOBHEV = 5 ' 縦
Const HENOBNOH = 5 '<の>ベジェ横倍率
Const HENOBNOV = 5 ' 縦
Const HENOBMOH = 5 '<も>ベジェ横倍率
Const HENOBMOV = 8 ' 縦
Const HENOBJIH = 30 '<じ>ベジェ横倍率
Const HENOBJIV = 18 ' 縦
''
' '中心位置から
Const HENOHEHL = 20 '〃<へ>の距離[横
Const HENOHEVL = -20 ' [縦
Const HENONOVL = 0 '〃<の>の距離[縦
0
現役PCインストラクターのワンポイントブログ♪オブジェクトの移動と文字列の折り返しの違い？
こんばんは♪ほしのひろです。ムシムシした暑さが続いていますね💦私も我慢できずにクーラーをつけてしまいました(;'∀')熱中症にならないように、適度にクーラーはつけましょうね♪今回はオブジェクトの移動と文字列の折り返しの違いについて。図形や画像をいくつか挿入して順番を変更するときに「前面へ移動」とか「背面へ移動」を使って変更します。一方「文字列の折り返し」を使って、文章に対して図形や画像を回り込ませたいときに「前面」「背面」を使います。この2種類の機能の「前面」と「背面」はどう違うのか。文字列の折り返しを使って図形は前面や背面に移動できないのかなど、時々質問を受けます。例えば、下の図。左から順に作ってみました。重ねると、下のようになります。一番初めに作ったのが丸の図形なので、一番下に配置されます。この丸の図形を一つだけ前に移動したい、つまり四角と三角の間に移動したいので「前面へ移動」をクリック。すると、と、なります。一方「文字列の折り返し」では、表示されている文章に対して「前面」「背面」に画像や図形などを配置します。例えば、下の文章を入力します。この文章に赤い丸の図形を文章の前面に配置します。すると、文章の背面に配置するとつまり、オブジェクトの移動の「前面へ移動」「背面へ移動」はオブジェクト同士で順番を移動したいときに使い、文字列の折り返しの「前面」「背面」はオブジェクトに対してどう文字を回り込ませるか、文字を対象にした機能という違いがあります。ちなみに、さっきのオブジェクトの移動の画像に出てきた「テキストの前面へ移動」は文字の前にオブジェクトが配置されます。（「テキストの背面へ
0
【Word VBA】丸く並べるベジェ曲線描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 丸く並べるベジェ曲線描画マクロ()
Const CIBZOCXP = 180 '外円の中心位置Ｘ
Const CIBZOCYP = 190 ' Ｙ
Const CIBZICXP = 160 '内円の中心位置Ｘ
Const CIBZICYP = 160 ' Ｙ
'
Const CIBZLNCN = 36 '線の数
Const CIBZORAD = 100 '外円の半径
Const CIBZIRAD = 25 '内円の半径
'
Const CIBZOMIS = 30 'ベジエ曲線ずれ
Const CIBZIMIS = 15
'
Const CIBZLNCL = &H3C14DC '線の色
Const CIBZLNWE = 2 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer
Dim intAng As Integer, sngRdi As Single
Dim sngSit(2) As Single
Dim
0
現役PCインストラクターのワンポイントブログ♪今日からブログ始めます
こんにちは、ほしのひろです！いきなりですが、今日からブログを始めることにしました。通算10年以上インストをさせていただいていて、主にMicrosoft365関連の指導をしています。見積書や請求書、プレゼンなどのビジネス文書から同窓会の名簿作成、年賀はがきまで、様々な文書作成についてサポートやアドバイスをしていますが、どんな種類の文書作成においても大事なのが●効率よく作成すること●ミスなく、正確に作成すること●見栄えよく作成することだと思っています。仕事は次から次へとこなさないといけませんから、一つの文書作成に長く時間をかけられませんし、誤字脱字が多いと手直しする時間を取られます。また、レイアウトが悪いと、内容が良くても敬遠されてしまうことがあります。これらのポイントをMicrosoft365をうまく使い、ネットやSNSも利用してサクサクと作成できるように、アドバイスをさせていただけたらと思います。次回から色々アドバイスしていきます。出来るだけ必要性の高い内容を記載していきたいと思いますので、宜しくお願いします！
0
【Word VBA】カラフル曲線描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub カラフル曲線描画マクロ()
Const COLFCNXP = 160 '描画中心位置Ｘ
Const COLFCNYP = 160 ' Ｙ
'
Const COLFANSP = 5 '描画刻み角度
Const COLFNPRD = 360 / COLFANSP '一周の点数
Const COLFRATE = 45 '線の長さレート
Const COLFRAND = 8 '周回数
'
Const COLFLNWE = 3.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim sngPDat(COLFNPRD, 1) As Single
Dim sngSit As Single, sngRpd As Single
Dim sngRds As Single, lngCol As Long
'
sngRpd = Atn(1) / 45
For Jp = 0 To COLFRAND - 1
'*ポリラインデータ作成
Fo
0
【Word VBA】五葉線模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 五葉線模様描画マクロ()
Const FVLVLEFT = 80 '描画中心位置Ｘ
Const FVLVTOPP = 80 ' Ｙ
'
Const FVLVANSP = 5 '描画刻み角度
Const FVLVRATE = 12 '線の長さレート
'
Const FVLVVPIT = FVLVRATE * 4.2 '横-間隔
Const FVLVHPIT = FVLVRATE * 4.2 '縦-間隔
Const FVLVCOLS = 6 '横/描画数
Const FVLVROWS = 4 '縦/描画数
'
Const FVLVRAT1 = 1.2 '大きい倍率
Const FVLVRAT2 = 0.75 '小さい倍率
Const FVLVLNWE = 1 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim
0
【Word VBA】変形三角形模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 変形三角形模様描画マクロ()
Const DFTRLEFT = 90 '描画開始位置Ｘ
Const DFTRTOPP = 90 ' Ｙ
'
Const DFTRCOLS = 6 '横/描画数
Const DFTRROWS = 6 '縦/描画数
'
Const DFTRBZMG = 20 '描画サイズ
Const DFTRWAVE = 0.4 * DFTRBZMG '変形量
'
Const DFTRVPIT = DFTRBZMG * 1.73205 '横/描画間隔
Const DFTRHPIT = DFTRBZMG * 1.5 '縦/描画間隔
'
Const DFTRLNWE = 1# '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim lngC
0
【Word VBA】楕円が並ぶ模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 楕円が並ぶ模様描画マクロ()
Const ELLPLEFT = 90 '描画開始位置Ｘ
Const ELLPTOPP = 85 ' Ｙ
'
Const ELLPCOLS = 9 '横/描画数
Const ELLPROWS = 5 '縦/描画数
'
Const ELLPWIDT = 20 '楕円幅
Const ELLPHEIG = 30 '楕円高さ
'
Const ELLPVPIT = 22 '横/描画間隔
Const ELLPHPIT = 34 '縦/描画間隔
'
Const ELLPLNWE = 4 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim lngCol As Long
'
lngCol = RGB(0, 139, 139) '←線色
For Jp = 0 To ELLPROWS - 1
intDyp = E
0
【Word VBA】リサジュ―曲線模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub リサジュ―曲線模様描画マクロ()
Const LISSLEFT = 80 '描画開始位置Ｘ
Const LISSTOPP = 80 ' Ｙ
'
Const LISSCOLS = 6 '横/描画数
Const LISSROWS = 5 '縦/描画数
'
Const LISSANSP = 5 '描画刻み角度
Const LISSRATE = 20 '線の長さレート
'
Const LISSCASE = 4 'リサージュの種類
Const LISSVPIT = LISSRATE * 2.25 '横/描画間隔
Const LISSHPIT = LISSRATE * 2.25 '縦/描画間隔
'
Const LISSLNWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim s
0
【Word VBA】四葉線模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 四葉線模様描画マクロ()
Const FOLVLEFT = 80 '描画中心位置Ｘ
Const FOLVTOPP = 80 ' Ｙ
'
Const FOLVANSP = 5 '描画刻み角度
Const FOLVRATE = 8 '線の長さレート
'
Const FOLVVPIT = FOLVRATE * 4 '横-間隔
Const FOLVHPIT = FOLVRATE * 4 '縦-間隔
Const FOLVCOLS = 7 '横/描画数
Const FOLVROWS = 6 '縦/描画数
'
Const FOLVLNWE = 1 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim intCxp As Integer, intCyp As Integer
Dim sngPBas(360 / FOLVANSP, 1) As Single
Dim sngP
0
【Word VBA】三筋格子模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 三筋格子模様描画マクロ()
Const TRSGLEFT = 80 '描画開始位置Ｘ
Const TRSGTOPP = 80 ' Ｙ
'
Const TRSGVSPC = 25 '縦線間隔
Const TRSGHSPC = 25 '横線間隔
'
Const TRSGCOLS = 7 '横格子数
Const TRSGROWS = 6 '縦格子数
'
Const TRSGLNWT = 2 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim intEpt(1) As Integer, intMpt(1) As Integer
Dim lngCol As Long
'
lngCol = RGB(138, 43, 226) '←線色
'*横線
intEpt(0) = TRSGLEFT
intEpt(1) = TRSGLEFT + TRSGVSPC * TRSGCOLS
For Ip = 0 To T
0
【Word VBA】三葉線模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 三葉線模様描画マクロ()
Const THLFCNXP = 100 '描画開始中心位置Ｘ
Const THLFCNYP = 120 ' Ｙ
'
Const THLFANSP = 5 '描画刻み角度
Const THLFRATE = 15 '線の長さ倍率
'
Const THLFCOLS = 4 '横描画数
Const THLFVPIT = THLFRATE * 4.5 '横間隔
Const THLFLNWE = 1 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
Dim intCxp As Integer, intCyp As Integer
Dim sngPBas(360 / THLFANSP, 1) As Single
Dim sngPDat(360 / THLFANSP, 1) As Single
'
Dim sngSit As Single, sngRad As Single
Dim sngR
0
【Word VBA】心臓形放射状線描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 心臓形放射状線描画マクロ()
Const HTSHCNXP = 120 '描画中心位置Ｘ
Const HTSHCNYP = 175 ' Ｙ
'
Const HTSHANSP = 5 '描画刻み角度
Const HPSHRATE = 75 '線の長さレート
Const HTSPLNWE = 1 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer
Dim sngSit As Single, sngRnd As Single
Dim intDxp As Integer, intDyp As Integer
Dim lngCol As Long
'
lngCol = RGB(255, 69, 0) '←線色
For Ip = 0 To 360 - 1 Step HTSHANSP
sngSit = (Atn(1) / 45) * Ip
sngRnd = Cos(sngSit) + 1
intD
0
【Word VBA】ギザギザ丸描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub ギザギザ丸描画マクロ()
Const JAGGLEFT = 80 '描画開始位置Ｘ
Const JAGGTOPP = 80 ' Ｙ
'
Const JAGGCOLS = 4 '横/描画数
Const JAGGROWS = 3 '縦/描画数
'
Const JAGGVPIT = 60 '横/描画間隔
Const JAGGHPIT = 60 '縦/描画間隔
'
Const JAGGRAD1 = 28 '山の半径
Const JAGGRAD2 = 14 '谷の半径
'
Const JAGGCONT = 36 '山と谷の数
Const JAGGLNWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim intBxp As Integer, intByp As Integer
Dim intCxp As Integer, intCy
0
【Word VBA】さくら模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub さくら模様描画マクロ()
Const CHBSBLFT = 100 '描画開始中心位置Ｘ
Const CHBSBTOP = 100 ' Ｙ
'
Const CHBSCOLS = 5 '横/描画数
Const CHBSROWS = 4 '縦/描画数
'
Const CHBSVPIT = 50 '横/描画間隔
Const CHBSHPIT = 40 '縦/描画間隔
'
Const CHBSBZM1 = 1.8 '大きな花びら倍率 Const CHBSBZM2 = 1.2 '小さな花びら
Const CHBSBSRA = 8 '花びら位置係数 Const CHBSLNWE = 1 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
Dim intCxp As Integer, intCyp As Integer
Dim i
0
【Word VBA】捻り梅描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 捻り梅描画マクロ()
Const TWPLLEFT = 80 '描画開始位置Ｘ
Const TWPLTOPP = 80 ' Ｙ
'
Const TWPLCOLS = 5 '横/描画数
Const TWPLROWS = 4 '縦/描画数
'
Const TWPLBZMG = 0.2 'ベジェ曲線描画倍率
Const TWPLFRAD = 74.35 * TWPLBZMG '花びら中心位置
Const TWPLARAD = 40.01 * TWPLBZMG '花びらしわサイズ
Const TWPLHEIG = 56.36 * TWPLBZMG ' 〃
Const TWPLCRAD = 25.01 * TWPLBZMG '真ん中の円半径
Const TWPLLNWE = 1.5 '線の太さ
'
Const TWPLVPIT = TWPLFRAD *4 '横/描画間隔
Const TWPLHPIT = TWPLFRAD * 4
0
【Word VBA】つた家紋描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub つた家紋描画マクロ()
Const IVYSLEFT = 150 '*描画開始位置Ｘ
Const IVYSTOPP = 150 ' Ｙ
'
Const IVYSYOPS = 180 '*円弧描画Ｙ位置補正値
Const IVYSCRAD = 8 '*真ん中の丸半径
Const IVYSLNWE = 4 '*線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer
Dim Kp As Integer, Lp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim lngCol(1) As Long
Dim sngBBas() As Single, sngBDat() As Single
Dim varBezi As Variant
Dim sngABas() As Single, sngADat() As Single
Dim varArcL As Variant
'
'*外形輪郭ベジェ曲線データ
varBezi = Array(70.3,
0
【Word VBA】水仙の花描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 水仙の花描画マクロ()
Const NARCLEFT = 100 '描画開始位置Ｘ
Const NARCTOPP = 100 ' Ｙ
'
Const NARCCOLS = 4 '横/描画数
Const NARCROWS = 3 '縦/描画数
'
Const NARCVPIT = 70 '横/描画間隔
Const NARCHPIT = 60 '縦/描画間隔
'
Const NARCBZMG = 0.2 'ベジュ曲線描画倍率
Const NARCFRAD = (77.4 * NARCBZMG) '花びら
Const NARCGRAD = (90.1 * NARCBZMG) '筋
Const NARCMRAD = 11 '中側花びら半径
Const NARCORAD = 2 'おしべ描画半径
Const NARCARAD = 3
'
Const NARCLNWE = 1 '線の太さ
'---------------------------------------------------
0
【Word VBA】工字繋ぎ文様描画マクロ其の二▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 工字繋ぎ文様描画マクロ2()
Const KOJILEFT = 150 '描画開始位置Ｘ
Const KOJITOPP = 100 ' Ｙ
'
Const KOJIPRAT = 5 'ポリライン描画倍率
'
Const KOJICOLS = 6 '横描画数
Const KOJIROWS = 5 '縦描画数
Const KOJICXP1 = 0 '横連結ポイント
Const KOJICXP2 = 6
Const KOJICYP1 = 5 '縦連結ポイント
Const KOJICYP2 = 17
'
Const KOJILNWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, lngColr(1) As Long
Dim intDxp As Integer, intDyp As Integer
Dim varPoly As Variant
D
0
【Word VBA】皆違って皆いい描画マクロ▽ソースコード
Option Explicit
Option Base 0
'金子みすゞの詩『私と小鳥と鈴と』の一節より
Public Sub 皆違って皆いい描画マクロ()
Const KANELEFT = 80 '描画開始位置Ｘ
Const KANETOPP = 80 ' Ｙ
'
Const KANEVPIT = 75 '横-間隔
Const KANEHPIT = 75 '縦-間隔
Const KANECOLS = 4 '横/描画数
Const KANEROWS = 3 '縦/描画数
'
Const KANELNWE = 1 '線の太さ
'
'ベジエ曲線描画倍率
Const KANEBZR顔 = 0.9
Const KANEBZR目 = 0.2
Const KANEBZR鼻 = -0.3
Const KANEBZR口 = -0.25
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer, Kp As Integer
Dim Lp As Integer, intDlt As Integer
Dim intCxp As Integer, intCyp As In
0
【Word VBA】回転する七角形描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 回転する七角形描画マクロ() '
Const HEPTLEFT = 90 '描画の開始位置Ｘ
Const HEPTTOPP = 80 ' Ｙ
Const HEPTLENG = 180 '七角形の大きさ
Const HEPTSTPP = 0.9 '七角形の縮小率
Const HEPTANGL = 7 '七角形の傾き角
Const HEPTCONT = 25 '七角形の数
'
Const HEPTLNWT = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, intLng As Integer
Dim lngCol As Long
'
lngCol = RGB(255, 20, 147) '←線の色
intLng = HEPTLENG \ 2
For Ip = 0 To HEPTCONT - 1
With ActiveDocument.Shapes.AddShape(msoShapeHeptagon, _
HEPTLEFT +
0
【Word VBA】四角と矢印模様描画マクロ▽ソースコード
ption Explicit
Option Base 0
'
Public Sub 四角と矢印模様描画マクロ()
Const SQARLEFT = 80 '描画開始位置Ｘ
Const SQARTOPP = 90 ' Ｙ
'
Const SQARCOLS = 6 '横/描画数
Const SQARROWS = 4 '縦/描画数
'
Const SQARSIZE = 20 '描画サイズ
Const SQARSGAP = 2 '描画隙間
'
'縦横/描画間隔
Const SQARVPIT = ((SQARSIZE + SQARSGAP) * 2)
Const SQARHPIT = ((SQARSIZE + SQARSGAP) * 2)
'
Const SQARLNWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim lngCol As Long
'
Randomize '*乱数系列初期化
lngCol = RGB(65
0
【Word VBA】楕円状に並べた楕円形描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 楕円状に並べた楕円形描画マクロ()
Const ELLICXPS = 200 '輪の中心位置Ｘ
Const ELLICYPS = 160 ' Ｙ
'
Const ELLISCNT = 15 '楕円の数
Const ELLISRAD = 16 '楕円の半径
'
Const ELLIMRAD = 100 '輪の半径
'
Const ELLIRATE = 0.5 '楕円のＹ／Ｘ
'
Const ELLILNWT = 1 '輪郭線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer
Dim intDxp As Integer, intDyp As Integer
Dim intEwd As Integer, intEht As Integer
Dim sngAng As Single, lngCol(1) As Long
'
lngCol(0) = vbBlack '←輪郭
0
【Word VBA】虹描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 虹描画マクロ()
Const RNBWLEFT = 80 '描画開始位置Ｘ
Const RNBWTOPP = 80 ' Ｙ
'
Const RNBWIRAD = 20 '内側の半径
Const RNBWRDSP = 3 '色の間隔幅
'横-間隔
Const RNBWVPIT = _
(RNBWIRAD + RNBWRDSP * 7) * 2 + 5
'縦-間隔
Const RNBWHPIT = _
(RNBWIRAD + RNBWRDSP * 7) * 1 + 5
Const RNBWCOLS = 4 '横/描画数
Const RNBWROWS = 4 '縦/描画数
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim intRnd As Integer, lngCol(6) As Long
'
'*虹の色を指定（内側→→外側）/紫-青
0
【Word VBA】黒塗り文書作成マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 黒塗り文書作成マクロ()
'---------------------------------------------------------------------------
Dim rngArea As Range
'
Set rngArea = ActiveDocument.Range(0, 0)
'蛍光ペン部分を検索
With rngArea.Find
.Text = ""
.Forward = True
.Wrap = wdFindStop
.Highlight = True
End With
'蛍光ペンの色を変更
Do While rngArea.Find.Execute = True And rngArea.Text <> ""
If rngArea.HighlightColorIndex = wdBlack Then
rngArea.HighlightColorIndex = wdYellow
Else
rngArea.HighlightColorIndex = wdBlack '←黒塗り
End If
Loop
End Sub
0
【Word VBA】デカ文字文書作成マクロ▽ソースコード
画像は、３０％の倍率で表示したものです。Option Explicit
Option Base 0
'
Public Sub デカ文字文書作成マクロ()
'↓フォント名
Const DECAFONTNAME = "UD デジタル 教科書体 NK-B"
Const DECAFONTSIZE = 470 'フォントサイズ
'↓表示文字
Const DECAMOJIRETU = "歳末大売出し"
Const DECALINEWEIG = 3 '輪郭線の太さ
'↓アートスタイル
Const DECATEXTEFFE = msoTextEffect1
'---------------------------------------------------------------------------
Dim Ip As Integer
Dim docDst As Document
Dim lngCol(1) As Long
'
lngCol(0) = vbBlack '←輪郭線色
lngCol(1) = vbRed '←文字色
'
Set docDst = Application.Documents.Add
docDst.Content.Select
'*１文字目のワードアートを描画
With docDst.Shapes.AddTextEffect(DECATEXTEFFE, _
0
【Word VBA】いちご描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub いちご描画マクロ()
Const STRBLEFT = 90 '描画開始位置Ｘ
Const STRBTOPP = 80 ' Ｙ
'
Const STRBCOLS = 5 '横/描画数
Const STRBROWS = 4 '縦/描画数
'
Const STRBBBZM = 0.75 'ベジェ曲線描画倍率(本体)
Const STRBHBZM = 0.75 'ベジェ曲線描画倍率(ヘタ)
'
Const STRBBOSX = 27.75 * STRBBBZM '描画調整位置
Const STRBBOSY = 28.05 * STRBBBZM
Const STRBHOSX = STRBBOSX '描画調整位置
Const STRBHOSY = 0 * STRBHBZM
'
Const STRBVPIT = 56 * STRBBBZM '横-間隔
Const STRBHPIT = 65 * STRBBBZM '縦-間隔
'
Const STRBDEFX = 20 * STRBBBZM '変形幅
Const STRBWANG = 30 '振れ幅
Const STRBLNWE = 1
0
【Word VBA】アイヌ文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub アイヌ文様描画マクロ()
Const AINULEFT = 150 '描画開始位置Ｘ
Const AINUTOPP = 120 ' Ｙ
'
Const AINUBZMG = -1.5 'ベジエ曲線倍率
Const AINULNWT = 1 '輪郭線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Kp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim sngBBas() As Single, sngBDat() As Single
Dim sngMax(1) As Single, sngMin(1) As Single
Dim varBezi As Variant, lngCol(1) As Long
'
'ベジエデータ
varBezi = Array(20.7, 19.05, 24#, 16.2, 28.2, 12.3, 30.75, 7.2, _
33.6, 2.1, 35.25, -4.05, 35.55, -11.1, 35.55, -16.35, _
0
【Word VBA】二筋格子模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 二筋格子模様描画マクロ()
Const BIFULEFT = 90 '描画開始位置Ｘ
Const BIFUTOPP = 90 ' Ｙ
'
Const BIFUVSPC = 25 '縦線間隔
Const BIFUHSPC = 25 '横線間隔
'
Const BIFUCOLS = 8 '横格子数
Const BIFUROWS = 7 '縦格子数
'
Const BIFULNWT = 3 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim intEpt(1) As Integer
Dim intMpt(1) As Integer
Dim lngCol As Long
'
lngCol = RGB(0, 0, 139) '←線色
'*横線#############################
intEpt(0) = BIFULEFT
intEpt(1) = BIFULEFT + BIFUVSPC * BIFUC
0
【Word VBA】一括画像データをダウンロードし表示マクロ▽ソースコード
Option Explicit
Option Base 0
'
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal pszURL As String, _
ByVal pszFileName As String, ByVal dwReserved As Long, _
ByVal plpfnCB As Long) As Long
Public Sub 一括画像データをダウンロードし表示マクロ()
'ダウンロードＵＲＬ(作者のココナラブログ一覧)
Const DLBSURL = "https://coconala.com/blogs/1197395"
'ダウンロード格納ファイル名
Const DLTMPFN = "Temp.txt"
'対象画像拡張子
Const DLFEXTN = ".png"
'画像取出しキーワード
Const DLFKEY1 = "<img src="""
Const DLFKEY2 = DLFEXTN & """"
'
Const DLPCFNH = "PIC"
'ダウンロードエラーメッセージ
Const DLEMSG1 = "ダウンロードが出来ませんでした!!" & _
v
0
【Word VBA】花菱模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 花菱模様描画マクロ()
Const FLDILEFT = 80 '描画開始位置Ｘ
Const FLDITOPP = 90 ' Ｙ
'
Const FLDICOLS = 5 '横/描画数
Const FLDIROWS = 3 '縦/描画数
'
Const FLDILGRD = 24 '花のサイズ
Const FLDISMRD = 6 '花びらのサイズ
Const FLDICNRD = 6 'めしべのサイズ
Const FLDICNLN = 9 '十字の線の長さ '
Const FLDIVPIT = (FLDILGRD + FLDISMRD) * 2 '横-間隔
Const FLDIHPIT = FLDIVPIT '縦-間隔
Const FLDILNWE = 1.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
Dim i
0
【Word VBA】お椀とお箸描画マクロ▽ソースコード
Public Sub お椀とお箸描画マクロ()
Const BOWLLEFT = 100 '描画開始位置Ｘ
Const BOWLTOPP = 100 ' Ｙ
'
Const BOWLCOLS = 6 '横/描画数
Const BOWLROWS = 5 '縦/描画数
'
Const BOWLLNWE = 0.75 '線の太さ
'
Const BOWLFMMG = 2 'お椀の描画倍率
Const BOWLPLMG = 2 'お箸の描画倍率
'
Const BOWLSTVP = (6 * BOWLFMMG) '箸の位置Ｘ
Const BOWLSTHP = (8 * BOWLFMMG) ' Ｙ
Const BOWLSTGP = (2 * BOWLPLMG) '箸の間隔
'
Const BOWLVPIT = (20 * BOWLPLMG) '横-間隔
Const BOWLHPIT = (15 * BOWLFMMG) '縦-間隔
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
Dim intDxp As Integer, intDyp A
0
【Word VBA】観世水模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 観世水模様描画マクロ()
Const KNZWLEFT = 100 '描画開始位置Ｘ
Const KNZWTOPP = 100 ' Ｙ
'
Const KNZWCOLS = 5 '横/描画数
Const KNZWROWS = 5 '縦/描画数
'
Const KNZWSWAN = 30 '渦巻描画刻み角
Const KNZWSWMG = 0.5 '渦巻描画 係数
Const KNZWOCWD = (20 * KNZWSWMG) '円弧幅
Const KNZWOCPT = (8 * KNZWSWMG) '円弧間隔
Const KNZWOCCN = 4 '円弧の数
Const KNZWOCAG = 0.1 '円弧の厚み
Const KNZWOCHT = 1.1 '(円弧/渦巻)の高さ
Const KNZWHSPC = 1.25 '(行/円弧)の高さ
'
Const KNZWLNWE = 0.75 '渦巻線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer, Lp As Integer
0
【Word VBA】いちょう葉描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub いちょう葉描画マクロ()
Const GINKLEFT = 100 '描画開始位置Ｘ
Const GINKTOPP = 100 ' Ｙ
'
Const GINKBZMG = 0.25 'ベジェ曲線描画倍率
'
Const GINKBWID = 152.9 * GINKBZMG '描画幅
Const GINKBHEI = 184.54 * GINKBZMG '描画高さ
Const GINKVPIT = (GINKBWID + 5) '横-間隔
Const GINKHPIT = (GINKBHEI + 5) '縦-間隔
'
Const GINKCOLS = 6 '横/描画数
Const GINKROWS = 4 '縦/描画数
'
Const GINKLNWE = 1 '線の太さ
Const GINKWAVE = 20 '揺れ角
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim intDxp As Integer, intDyp As In
0
【Word VBA】三つ枡模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 三つ枡模様描画マクロ()
Const TMASLEFT = 100 '描画開始位置Ｘ
Const TMASTOPP = 100 ' Ｙ
'
Const TMASLEN1 = 8 '枡のサイズ１
Const TMASLEN2 = 12 '枡のサイズ２
'
Const TMASCOLS = 6 '横/描画数
Const TMASROWS = 4 '縦/描画数
'
Const TMASLNW1 = 3 '線の太さ１
Const TMASLNW2 = 4 '線の太さ２
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim intPit As Integer, intAng As Integer
Dim blnTyp As Boolean, intLen As Int
0
【Word VBA】霞文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 霞文様描画マクロ()
Const HAZELEFT = 80 '描画開始位置Ｘ
Const HAZETOPP = 90 ' Ｙ
'
Const HAZESWD1 = 50 '描画幅1
Const HAZESWD2 = 12 '描画幅2(連結部分)
Const HAZESWD3 = 36 '描画幅3
Const HAZESHT1 = 6 '描画高さ
Const HAZESHT2 = 5 '描画高さ(連結部分)
'
Const HAZESMIS = 0.5 '霞描画位置係数
Const HAZESCNT = 3 '霞の段数
'
Const HAZELNRV = 3 '連結描画補正値
Const HAZEVSPC = 75 '横-間隔
Const HAZEHSPC = 40 '縦-間隔
Const HAZECOLS = 4 '横/描画数
Const HAZEROWS = 4 '縦/描画数
'--------------------------
0
【Word VBA】千鳥模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 千鳥模様描画マクロ()
Const CHIDLEFT = 80 '描画開始位置Ｘ
Const CHIDTOPP = 90 ' Ｙ
'
Const CHIDVSPC = 80 '横-間隔
Const CHIDHSPC = 70 '縦-間隔
'
Const CHIDCOLS = 4 '横/描画数
Const CHIDROWS = 4 '縦/描画数
'
Const CHIDBZM1 = 0.4 'ベジェ曲線描画倍率
Const CHIDBZM2 = CHIDBZM1
'
Const CHIDLFDX = 80 * CHIDBZM1 '千鳥足１相対位置
Const CHIDLFDY = 10 * CHIDBZM1
Const CHIDRFDX = 56 * CHIDBZM1 '千鳥足２相対位置
Const CHIDRFDY = 50 * CHIDBZM1
'
Const CHIDEYSZ = 20 * CHIDBZM1 '千鳥目玉大きさ
Const CHIDEYDX = -30 * CHIDBZM1 '千鳥目玉相対位置
0
【Word VBA】算盤縞模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 算盤縞模様描画マクロ()
Const ABACLEFT = 90 '描画開始位置Ｘ
Const ABACTOPP = 80 ' Ｙ
'
Const ABACBWID = 8 '描画幅(棒)
Const ABACSWID = 24 '描画幅(ひし形)
Const ABACSHEI = 18 '描画高さ(ひし形)
'
Const ABACVSP1 = 4 '横-間隔１
Const ABACVSP2 = 4 '横-間隔２
Const ABACVSPC = (ABACBWID + ABACVSP1 _
+ ABACSWID + ABACVSP2)
Const ABACHSP1 = 4 '縦-間隔
Const ABACHSPC = (ABACSHEI + ABACHSP1)
Const ABACCOLS = 7 '横/描画数
Const ABACROWS = 8 '縦/描画数
'---------------------------------------------------------------------------
Dim Ip As Integer,
0
【Word VBA】多重円模様描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 多重円模様描画マクロ()
Const MLTCLEFT = 180 '描画開始位置Ｘ
Const MLTCTOPP = 160 ' Ｙ
Const MLTCRADI = 10 '描画開始半径
Const MLTCCONT = 10 '描画円数
'
Const MLTCLNWT = 2 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer
Dim intCxp As Integer, intCyp As Integer
Dim intCrd As Integer, lngCol As Long
'
lngCol = RGB(148, 0, 211) '←線の色
intCxp = MLTCLEFT: intCyp = MLTCTOPP
intCrd = MLTCRADI
For Ip = 0 To MLTCCONT - 1
' 円形を描画し ます
With ActiveDocument.Shapes.AddShape( _
msoShapeOval, _
0
【Word VBA】 オバケかぼちゃ描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub オバケかぼちゃ描画マクロ()
Const PUMPLEFT = 100 '描画開始位置Ｘ
Const PUMPTOPP = 100 ' Ｙ
Const PUMPVSPC = 40 '横-間隔
Const PUMPHSPC = 40 '縦-間隔
'
Const PUMPCOLS = 5 '横/描画数
Const PUMPROWS = 4 '縦/描画数
Const PUMPEYSZ = 6 '目のサイズ
Const PUMPEYVP = 5 '目の位置(外形中心より)
Const PUMPEYHP = -2.5
'
Const PUMPNSWD = 4 '鼻のサイズ
Const PUMPNSHT = 5
Const PUMPNSVP = 0 '鼻の位置(外形中心より)
Const PUMPNSHP = 0
'
Const PUMPMTVP = 0 '口の位置(外形中心より)
Const PUMPMTHP = 12
0
あなたも記事を書いてみませんか？
多くの人へ情報発信が簡単にできます。
ブログを投稿する
多くの人へ情報発信が簡単にできます。