Excel で 角丸四角形や1つの角を切り取った四角形で、角丸や切り取った長さを一定に設定する為の VBA Sub プロシージャ

インターネットで探していたら、『角丸四角形シェイプのコーナーRをミリ指定する』というコードを見つけたんですが、もっと簡素化できるので。

Sub adjust_box()
 
    Dim target As Shape
     
    For Each target In Selection.ShapeRange
    
        target.Adjustments.Item(1) = 10 / target.Height
        
    Next
 
End Sub

10 の部分を適当に変更すればいいと思います。登録場所は ThisWorkbook で、オブジェクトと選択の表示で対象オブジェクトを CTRLキーを押しながら複数選択して、Alt+F8 でマクロダイアログを表示して Enter で。

Adjustments.Item プロパティ (Excel) によると、『引数 Index で指定された調整値を取得または設定』だそうで、マクロの記録を使って動かしてみると、Adjustments.Item(1) にデータがセットされていました。

※ Sub プロシージャ は値を返しません

VBA

VBA : 一ヶ月の予定リストの作成して、csv を読み込んでデータを表示する

Excel の VBA : ブックを開いたら、フォームを表示してボタンをクリックしたらセルにデータをセットする

VBA : Microsoft Access(.accdb) の読み込み

VBA : livedoor お天気API の JSON データを読み込んで利用する

VBA : シートの保護と部分的なセル入力の許可

VBA : 挿入した『テキストボックス』にアクセスする

VBA : InternetExplorer.Application 経由で JSON.parse を使用する方法

VBA : FileSystemObject でテキストファイル(CSV) を読み込んでセルにセットする