図形（シェイプ）に反射を設定する方法
図形（シェイプ）に反射を設定するには、反射の書式設定を表すReflectionFormat【ﾘｽﾚｸｼｮﾝﾌｫｰﾏｯﾄ】オブジェクトの反射のタイプを設定するType【ﾀｲﾌﾟ】プロパティに反射のタイプを表す定数を指定して、図形に反射を設定します。
Reflection【ﾘﾌﾚｸｼｮﾝ】プロパティ
図形の反射の書式設定を表すReflectionFormat【ﾘｽﾚｸｼｮﾝﾌｫｰﾏｯﾄ】オブジェクトを取得するには、図形を表すShape【ｼｪｲﾌﾟ】オブジェクトのReflection【ﾘﾌﾚｸｼｮﾝ】プロパティを使用します。
Reflection【ﾘﾌﾚｸｼｮﾝ】プロパティの書式と設定値の説明
オブジェクト.Reflection
【戻り値】ReflectionFormat【ﾘｽﾚｸｼｮﾝﾌｫｰﾏｯﾄ】オブジェクト
- オブジェクト（必須）
Worksheet【ﾜｰｸﾌﾞｯｸ】オブジェクトのShapes【ｼｪｲﾌﾟｽ】プロパティ、またはShapes【ｼｪｲﾌﾟｽ】コレクションのAddShapeメソッドで取得した反射を設定する図形を表すShape【ｼｪｲﾌﾟ】オブジェクトを指定します。
Type【ﾀｲﾌﾟ】プロパティ
図形の反射のタイプを指定して、図形に反射を設定するには、図形の反射の書式設定を表す
ReflectionFormat【ﾘｽﾚｸｼｮﾝﾌｫｰﾏｯﾄ】オブジェクトのType【ﾀｲﾌﾟ】プロパティを使用します。
Type【ﾀｲﾌﾟ】プロパティの書式と設定値の説明
オブジェクト.Type = 設定値
- オブジェクト（必須）
Shape【ｼｪｲﾌﾟ】オブジェクトのReflection【ﾘﾌﾚｸｼｮﾝ】プロパティで取得した
ReflectionFormat【ﾘｽﾚｸｼｮﾝﾌｫｰﾏｯﾄ】オブジェクトを指定します。 - 設定値（必須）
反射のタイプをMsoReflectionType列挙型の定数または値で指定します。MsoReflectionType列挙型 定数 値 内容 スタイル msoReflectionTypeNone 0 反射をクリアします。 msoReflectionType1 1 反射（弱）オフセットなし 
msoReflectionType2 2 反射（中）オフセットなし msoReflectionType3 3 反射（強）オフセットなし msoReflectionType4 4 反射（弱）4ptオフセット msoReflectionType5 5 反射（中）4ptオフセット msoReflectionType6 6 反射（強）4ptオフセット msoReflectionType7 7 反射（弱）8ptオフセット msoReflectionType8 8 反射（中）8ptオフセット msoReflectionType9 9 反射（強）8ptオフセット
指定したセル範囲に長方形を作成してタイプ6の反射を設定するコードと解説
Sub 反射()
Dim R As Range
Set R = Range("B2:C4")
With ActiveSheet.Shapes.AddShape(1, R.Left, R.Top, R.Width, R.Height)
.Reflection.Type = 6
End With
End Sub
図形の大きさや場所を設定するセル範囲を格納する変数「R」をオブジェクト型(Range)で宣言します。
3行目【Set R = Range(“B2:C4”)】
B2セル～C4セルのセル範囲をSetキーワードを使用してオブジェクト変数「R」に代入します。
4行目【With ActiveSheet.Shapes.AddShape(1, R.Left, R.Top, R.Width, R.Height)】
図形の集まりを表すShapes【ｼｪｲﾌﾟｽ】コレクションのAddShape【ｱﾄﾞｼｪｲﾌﾟ】メソッドで長方形の図形を作成してWith【ｳｨｽﾞ】ステートメントで指定します。
5行目【.Reflection.Type = 6】
With【ｳｨｽﾞ】ステートメントで指定した図形を表す、Shape【ｼｪｲﾌﾟ】オブジェクトのReflection【ﾘﾂﾚｸｼｮﾝ】プロパティを使用して反射の書式設定を表すReflectionFormat【ﾘﾌﾚｸｼｮﾝﾌｫｰﾏｯﾄ】オブジェクトを取得し、Type【ﾀｲﾌﾟ】メソッドを使用して
反射のタイプを6に設定します。
実行結果
円柱（シェイプ）の9種類の反射を表示するコードと解説
Sub 反射2()
Dim i As Integer
Dim R As Range
For i = 1 To 9
Set R = Cells(2, i)
With ActiveSheet.Shapes.AddShape(13, R.Left, R.Top, R.Width, R.Height)
.Reflection.Type = i
End With
Next i
End Sub
反射のタイプを表す値とセルの列番号を兼ねる繰り返し処理で使用されるカウンター変数の「i」を整数型(Integer)で宣言します。
3行目【Dim R As Range】
図形の大きさや場所を設定するセル範囲を格納する変数「R」をオブジェクト型(Range)で宣言します。
4行目【For i = 1 To 9】
For Next【ﾌｫｱﾈｸｽﾄ】ステートメントで繰り返し処理の始まりです。カウンター変数iに1から9までの値が順次代入されます。
5行目【Set R = Cells(2, i)】
セル2行目のi列つまり、繰り返しの中で1列～9列の値が順次設定されSetステートメントを使用してオブジェクト変数の「R」に代入します。
6行目【With ActiveSheet.Shapes.AddShape(13, R.Left, R.Top, R.Width, R.Height)】
図形の集まりを表すShapes【ｼｪｲﾌﾟｽ】コレクションのAddShape【ｱﾄﾞｼｪｲﾌﾟ】メソッドで円柱の図形を作成して、With【ｳｨｽﾞ】ステートメントで指定します。
7行目【.Reflection.Type = i】
With【ｳｨｽﾞ】ステートメントで指定した図形を表す、Shape【ｼｪｲﾌﾟ】オブジェクトのReflection【ﾘﾂﾚｸｼｮﾝ】プロパティを使用して反射の書式設定を表すReflectionFormat【ﾘﾌﾚｸｼｮﾝﾌｫｰﾏｯﾄ】オブジェクトを取得しType【ﾀｲﾌﾟ】メソッドを使用して
反射のタイプをカウンター変数「i」に設定し繰り返し処理の中で1から9の値を順次格納して表示します。
実行結果
以上で、図形（シェイプ）に反射を設定する方法についての解説を終了します。ありがとうございました。