すべてのカテゴリ

※noteより引用しております。こんばんは！🌠Welbyです。 noteを始めてもうすぐ3週間です。皆さまの温かいお声やスキ・フォロー等に日々励まされております。 改めてお礼申し上げます😊🌸 相変わらず暗いニュースの多い今日この頃ですが、 ふと 「いつも丸くありたいなぁ。✨」 と思いました。 丸くなりたい、ではなく「丸くありたい」です。 体型はこれ以上丸くならなくていいのです。 （お腹周りとかね…😭） 昔こんなCMがあったんですよ。 「両方が尖っていると、お互いが傷つく。」 「だけど、片方が丸ければ…。（傷つかないかもしれない）」 という内容です。 （尖るではなく「硬い」だったかもしれません。 遠い記憶なので忘れてしまいました。） まだ20～30代の頃に見たCMだったかと思いますが、確かにそうだよなぁとしみじみ感銘を受けたことを覚えています。 「丸くある」には心の余裕が必要です。 今の私は、心に余裕を持てているのかなぁ…。 なんて、ちょっと思った今日この頃でした😌 まだまだ寒い日が続きそうですね！皆様ご自愛くださいませ☕✨

Option Explicit Option Base 0 Public Sub 丸く並ぶ矢印描画マクロ()     Const CIRCXPOS = 200　　　　　　    '円の中心位置　X     Const CIRCYPOS = 180 　　　　　　　'　　　            Y     Const CIRCRADI = 100　　　　　　    '円の半径     Const ARRWCONT = 12　　　　　　   '矢印の数     Const ARRWWIDT = 30 　　　　　　  '矢印の幅     Const ARRWHEIG = 25                      '矢印の高さ     Const ARRBAPHT = 0.4                    '矢印の高さに対する棒の太さ比率     Const ARRHDPHT = 0.3                    '矢印の高さに対する頭の部分比率    '---------------------------------------------------------------------------     Dim Ip As Integer, intAng As Integer     Dim intXp As Integer, intYp As Integer, dblRd As Double     '     dblRd = (4 * Atn(1)) / 180     intAng = 360 \ ARRWCONT     For Ip = 0