Report.FillStyle プロパティ (Access)
FillStyle プロパティを使用して、レポートの Circle メソッドまたは Line メソッドによって描画される円または線を透明、不透明、またはパターンで塗りつぶすかどうかを指定します。 値の取得および設定が可能です。整数型 (Integer) の値を使用します。
構文
式。Fillstyle
式Report オブジェクトを表す変数。
注釈
FillStyle プロパティの設定値は次のとおりです。
| Setting | 説明 |
|---|---|
| 0 | 塗りつぶし |
| 1 | 透明 (既定値) |
| 2 | 水平な線 |
| 3 | 垂直な線 |
| 4 | 右上がりの線 |
| 5 | 右下がりの線 |
| 6 | 水平垂直に交差した線 |
| 7 | 斜めに交差した線 |
注:
[!メモ] FillStyle プロパティは、セクションの " OnPrint /印刷時" プロパティの設定で指定されたイベント プロシージャで設定できます。
FillStyle プロパティに 0 が設定されている場合、円または線の色は FillColor プロパティで設定されている色になります。 FillStyle プロパティに 1 が設定されている場合は、円や線の内部は透明になり、レポートの背景色になります。
FillStyle プロパティを使用するには、" SpecialEffect /立体表示" プロパティに [Normal/普通] を設定しておく必要があります。
次の例では、 Circle メソッドを使って円を描き、その円の中に扇形を作成します。 次に 、FillColor プロパティと FillStyle プロパティを使用して、円グラフスライスを赤に色付けします。 また、左上から円の中央に線を描画します。
例
To try this example in Microsoft Access, create a new report. Set the OnPrint property of the Detail section to [Event Procedure]. レポートのモジュールに次のコードを入力し、[印刷プレビュー] に切り替えます。
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Const conPI = 3.14159265359
Dim sngHCtr As Single
Dim sngVCtr As Single
Dim sngRadius As Single
Dim sngStart As Single
Dim sngEnd As Single
sngHCtr = Me.ScaleWidth / 2 ' Horizontal center.
sngVCtr = Me.ScaleHeight / 2 ' Vertical center.
sngRadius = Me.ScaleHeight / 3 ' Circle radius.
Me.Circle (sngHCtr, sngVCtr), sngRadius ' Draw circle.
sngStart = -0.00000001 ' Start of pie slice.
sngEnd = -2 * conPI / 3 ' End of pie slice.
Me.FillColor = RGB(255, 0, 0) ' Color pie slice red.
Me.FillStyle = 0 ' Fill pie slice.
' Draw Pie slice within circle
Me.Circle (sngHCtr, sngVCtr), sngRadius, , sngStart, sngEnd
' Draw line to center of circle.
Dim intColor As Integer
Dim sngTop As Single, sngLeft As Single
Dim sngWidth As Single, sngHeight As Single
Me.ScaleMode = 3 ' Set scale to pixels.
sngTop = Me.ScaleTop ' Top inside edge.
sngLeft = Me.ScaleLeft ' Left inside edge.
sngWidth = Me.ScaleWidth / 2 ' Width inside edge.
sngHeight = Me.ScaleHeight / 2 ' Height inside edge.
intColor = RGB(255, 0, 0) ' Make color red.
' Draw line.
Me.Line (sngTop, sngLeft)-(sngWidth, sngHeight), intColor
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。