すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 回転する長方形描画マクロ()     Const RECTCXPS = 180                              '描画の中心位置　X     Const RECTCYPS = 150                              '                        Y     Const RECTWIDT = 80                               '長方形の幅     Const RECTHEIG = 150                              '長方形の高さ     '     Const RECTCONT = 10                              '長方形の数/一周     '---------------------------------------------------------------------------     Dim Ip As Integer, intAng As Integer, dblRd As Double    Dim intXp As Integer, intYp As Integer    Dim intWd As Integer, intHt As Integer    Dim intXa As Integer, intYa As Integer, varCl As Variant    '     'カラーデータ///////

左の表にデータを入力して、作成のボタンをクリックすると、そのデータに基づく、ベジェ曲線を描画します。表には、Ｘ、Ｙの１０組の位置情報を入力します。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 写真を並べ描画マクロ()     Const PICUXCNT = 6                          '横方向写真数     Const PICUYCNT = 6                          '縦方向写真数     '     Const PICUWIDT = 40                        '写真幅     Const PICUHEIG = 40                         '写真高     '     Const PICUWIGP = 5                          '写真横隙間     Const PICUHEGP = 3                          '写真縦隙間     Const PICULEFT = 15                         '写真描画開始位置     Const PICUTOPP = 20 '     '     Const PICUFNAM = "Cherry.png"         '写真ファイル名     '---------------------------------------------------------------------------     Dim Ip As Integer, strFna As String     '     strFna = ThisDocument.Path &

Option Explicit Option Base 0 Public Sub ドーナッツ形描画マクロ()     Const CIRCXPOS = 200　　　　　    '円の中心位置　X     Const CIRCYPOS = 180 　　　　　　'　　　             Y     Const CIRCRADI = 100　　　　　    '円の半径     Const CIRCDIVI = 8　　　　　　      '分割数     Const DONARADI = 0.3　　　　　　 '外円と内円の比率(0<比率<0.5)    '---------------------------------------------------------------------------     Dim Ip As Integer, intAng As Integer, varColor As Variant     '     'カラーデータ//////////////////////////////////////////////////////////////     varColor = Array(0, 16777215, 255, 65280, 16711680, 65535,  _  16711935, 16776960, 128, 32768, 8388608, 32896, 8388736,   _   8421376, 12632256,  8421504, 16751001, 6697881, 13434879,  _  167

多趣味の、待つ子ママよ～＾＾こんなママにも、割と続いてる事があって・・・なんと、作詞作曲をしているのよ～～＾＾；１５年くらいやってます！もともとこんな風に、文章書くの好きだしあと、なんやかんや絵もね、描いてます！絵手紙とか似顔絵、小さなハガキサイズが得意ね。アマチュアのプロ＾＾；なので！楽しくやってます。でね、作詞の時は、割と暗ったいのよ～でもね、絵は、明るくしたいわけ！耳で聞くってことと、目で見ることって、違うのよね～。絵は、誰かが見る(目に入ってしまう)のが前提だから、あまり強烈な主張はしないわ！ご挨拶と同じね！笑顔を奪うような絵は描きたくないのよね。歌詞とかは、隠れた自分の本音が炙り出されて面白いのよね～！わざわざ綺麗ごとや、嘘は歌えないな～って感じなの。どっちも自分だから、そこらへんは面白く続けているわ・・・！

週間ごとにその週に描いた絵のタイムラインを編集して公開しています2024年２月４日～2月１１日　ふたりはプリキュアレビュー絵２５話～３１話 ふたりはプリキュア　レビュー絵　 19話～24話各話ワンシーンを模写しています。2024年１月29日～2月4日　ふたりはプリキュアレビュー絵19話～24話ふたりはプリキュア　レビュー絵　 19話～24話各話ワンシーンを模写しています。2024年1月22日～28日20240115－0121