円と弧円の組み合わせで描く。魔方陣や放射状の線、幾何学模様は中心を決めて描くとキレイ。 円を描く中心と半径を決めてオートシェイプを作る。 Option Explicit '線のデフォルトカラーと太さ。 Const LINE_BOLD As Long = 5 Const LINE_COLOR As Long = vb…

オートシェイプを作るたびに名前を配列に格納し、最後に配列からグループ化。 Dim myShape As Shape Dim arrName() As String Set myShape = オートシェイプを作る処理01 Call ShapeNameArray(arrName, myShape.Name) '～略～ Set myShape = オートシェイプ…

このようにしたい。 文字を円状に変形させる手順は、図形の書式＞文字の効果＞変形＞円。 オートシェイプの円を作成して直接文字を追加して文字を円状に変形させるとこうなる。内側すぎる。物足りない。 円とは別にワードアートを同じサイズで作ってみる。惜…

オートシェイプを自分で自由に書ける！ Sub 波線作成テスト() Dim myShape As Shape Dim ffb As FreeformBuilder Dim r As Range Set r = Range("A3") Set ffb = Shapes.BuildFreeform(msoEditingAuto, r.Left, r.Top) Dim i As Integer For i = 1 To 3 Set …

こんなの作りたい。アーチェリー！ 円の中心位置と直径から図形のサイズを計算してオートシェイプを作成。 Sub テスト() Dim 中心点Left As Integer Dim 中心点Top As Integer 中心点Left = Range("E15").Left 中心点Top = Range("E15").Top Dim 直径 As Int…

何回か虹グラデーションを作って分かったけど、緑色をそのままrgbGreenで虹を作るとなんか美しくない。固定観念に囚われず好きな色で作るべし。ちなみに虹が7色なのは日本と数国だけ、8色の国や2～6色の国もある。文字のグラデーションをする際に0～1の範囲…

'オートシェイプを画像として保存 Sub saveShapeImage(myShape As Shape, outputPath As String) 'シート内にチャートオブジェクトを作成 Dim myChart As ChartObject Set myChart = ActiveSheet.ChartObjects.Add( _ Left:=0, _ Top:=0, _ Width:=myShape.W…

Google先生のAPIは永遠に使える訳ではないので回避策としてテスト。Accessランタイム インストールバーコードはAccessのコントロールなのでAccessが必要！無ければランタイムでよい！Accessランタイムは無料！さすMicrosoft 早速ダウンロードしてインストー…

Google Chart API。パラメータ詳細は調べてません。URLエンコードすれば多分漢字が使える！ ブラウザなどで以下のURLにアクセスするとQRコード画像が返される。さすGoogle先生 myURL = "https://chart.apis.google.com/chart?cht=qr&chs=100x100&chl=TEST" '…