SQLの窓

2018年03月08日


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 プロシージャ は値を返しません



posted by lightbox at 2018-03-08 15:24 | VBA | このブログの読者になる | 更新情報をチェックする
container 終わり

フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

CSS ドロップシャドウの参考デモ
BUTTONS (CSS でボタン)
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり