Excel（エクセル）でWordで作れるような立体的な文字を入力する方法/ワードアートの使い方

Excelで行の先頭まで戻る・選択するショートカット/Homeキーの使い方

Excel VBA（マクロ）でシート/ブックがアクティブ化した時にイベントプロシージャを実行する方法/Activateの使い方

CLIP STUDIO PAINT（クリスタ）で新しくファイル（キャンバス）を作成する方法

Power Automate DesktopでPDFからテキストを抽出する方法

Unity C#で変数・値のデータ型を取得する方法/GetTypeの使い方

本当に面白い小説（その２）：アルジャーノンに花束を（ダニエル・キイス）

Pythonで文字列をつなげる、連結する方法

Excelでワークシート、シートの見出しを非表示にする・元に戻す方法

Boomyの使い方（AI自動作曲）

Power Automate Desktopの「ウィンドウの取得」アクションの使い方

ExcelVBA（マクロ）で一行おきに色を付ける方法/Color、For Next文、If文の組み合わせ方

Unityのアセットストアの使い方、無料素材の見付け方

DeFi：PancakeSwapで暗号通貨を両替、トレード、スワップする方法

仮想通貨用語：ATHとは

Excel（エクセル）のエラーの種類について

Excel（エクセル）で日付と曜日を同じセルに表示する方法

Excelエクセルで通貨に¥マーク、＄、€などの通貨記号を付ける方法/セルの書式設定の使い方（記号）

Excel VBAで線の太さを変更・取得する方法/Line.Weightプロパティの使い方

IT

2021.11.04

罫線などと同様、図形の線の太さを変更するのにもWeightプロパティを使用します。Shapeオブジェクト、ShapeRangeコレクションで使用できます。

目次

図形の線の太さを変更
- 図形の線の太さを取得

図形の線の太さを変更

線の太さを変更
Shapeオブジェクト（またはShapeRangeコレクション）.Line.Weight = 値
※値はポイント（1/72インチ）単位

lineweight1

作ったばかりのこういった図形（線の太さ：2ポイント）に対して、

' vba
ActactiveSheet.Shapes(1).Line.Weight = 1

図形を取得して線の太さを変更してみましょう。
まずはShapeオブジェクトに対して線の太さを1に指定してみます。

lineweight2

インデックス番号1の図形の線の太さが変更されました。

' vba
ActactiveSheet.Shapes.Range(Array(2, 3)).Line.Weight = 10

複数図形も指定できます。ShapeRangeコレクションに対して線の太さを変更してやれば、

lineweight3

線の太さをまとめて変更することができます。

lineweight5

ShapesコレクションからLineプロパティの変更はできません。
一度Shapes.SelectAllで図形を全て選択し、その後Selection.ShapeRangeから線の太さを指定すれば可能です。

図形の線の太さを取得

lineweight6

図形の線の太さは、MsgBox ActiveSheet.Shapes(1).Line.Weightなどで取得できます。

' vba
MsgBox ActiveSheet.Shapes.Range(Array(1, 2)).Line.Weight

一応ShapeRangeコレクションを指定すれば複数図形でも動くんですが、

lineweight5

想定してない使い方のようなので、単一図形を指定するようにしてください。

Excel（エクセル）：図形

Excelでは、図形という機能を使うことで四角形や丸、矢印などのオブジェクトをシート状に配置することができます。セルの形状を無視して配置できるので、フローチャートや装飾、注釈などアイデア次第でさまざまな用途に利用できます。図形作成・操作...

関数・演算子・メソッド・プロパティ名から探すExcel/VBA（マクロ）使い方・組み合わせ方まとめ

こちらはExcelやメソッドの諸機能を、機能の名称から探せるまとめ記事です。

やりたいことから方法を探すエクセル（Excel）操作・関数・VBA（マクロ）逆引きまとめ

逆引き（やりたいことから探す）Excel記事まとめ

コメント