エクセルのプロパティ

Transcription

1 エクセルのプロパティ 配置 HorizontalAlignment プロパティ 指定されたオブジェクトのセルに入力されて居る内容の配置 ( 横位置 ) を設定する 何のオブジェクトが対象の場合も 使用出来る定数は XlHAlign クラスの xlhaligncenter xlhaligndistributed xlhalignjustify xlhalignleft xlhalignright の孰れかで有る 更に 対象が Range オブジェクトや Style オブジェクトの場合 XlHAlign クラスの xlhaligncenteracrossselection xlhalignfill xlhaligngeneral の孰れかの定数も使用出来る 値の取得と設定が可能で有る バリアント型 (Variant) の値を使用する 選択 又は インストールされて居る言語の設定 ( 例えば 日本語 ) に依り 此等の幾つかの定数が使用出来ない場合が有る 次のは シート 1 のセル範囲 A1:A5 の内容の横位置を 左詰めに設定する Worksheets("Sheet1").Range("A1:A5").HorizontalAlignment = xlleft VerticalAlignment プロパティ 指定されたオブジェクトの縦の長さに対する 内容の配置 ( 縦位置 ) を設定する 使用出来る定数は XlVAlign クラスの xlvalignbottom xlvaligncenter xlvaligndistributed xlvalignjustify xlvaligntop の孰れかで有る 値の取得と設定が可能で有る バリアント型 (Variant) の値を使用する 選択 又は インストールされて居る言語の設定 ( 例えば 日本語 ) に依り 此等の幾つかの定数が使用出来ない場合が有る 次のは シート 1 の行 2 の高さを標準の高さの 2 倍に設定し 行の文字列の縦位置を中央揃えにする Worksheets("Sheet1").Rows(2).RowHeight = 2 * Worksheets("Sheet1").StandardHeight Worksheets("Sheet1").Rows(2).VerticalAlignment = xlvaligncenter WrapText プロパティ True の場合 オブジェクト内の文字列を列幅で折り返します 指定されたセル範囲に列幅で折り返す文字列と折り返さない文字列のセルが混在するとき Null 値を返します 指定されたセル範囲のすべての行の高さが同じでないとき Null 値を返します 値の取得と設定が可能で有る 使用する値は Range オブジェクトの場合は 1

2 バリアント型 (Variant) Style オブジェクトの場合はブール型 (Boolean) で有る 文字列をセル内に表示するために 行の高さは必要に応じて自動的に調節されます 次のは シート 1 のセル B2 で セルの文字列を列幅で折り返すように設定する Worksheets("Sheet1").Range("B2").Value = " この文字列は列幅で折り返して表示されます " Worksheets("Sheet1").Range("B2").WrapText = True Orientation プロパティ オブジェクトの向きや位置を設定する 使用出来る定数を次に示します 値の取得と設定が可能で有る 長整数型 (Long) の値を使用する オブジェクト ChartObject ChartObjects PageSetup PivotField CubeFields AxisTitle ChartTitle DataLabel DisplayUnitLabel Range Style TextFrame TickLabels 向き / 位置 埋め込みグラフを配置する位置で有る 使用出来る定数は XlPlacement クラスの xlfreefloating xlmove xlmoveandsize の孰れかで有る 印刷の向き ( 縦と横 ) で有る 使用出来る定数は XlPageOrientation クラスの xllandscape 又は xlportrait で有る 指定されたピボットテーブルレポートにおけるフィールドのエリアで有る 使用出来る定数は XlPivotFieldOrientation クラスの xlcolumnfield xldatafield xlhidden xlpagefield xlrowfield の孰れかで有る 文字の方向で有る 使用出来る範囲は -90 ~ 90 の角度 ( ) 又は定数の XlOrientation クラスの xldownward xlhorizontal xlupward xlvertical の孰れかで有る 文字の方向で有る 使用出来る範囲は -90 ~ 90 の角度 ( ) 又は XlTickLabelOrientation クラスの xlticklabelorientationautomatic xlticklabelorientationdownward xlticklabelorientationhorizontal xlticklabelorientationupward xlticklabelorientationvertical の孰れかで有る OLAP データソースの場合 このプロパティを設定すると ある階層の 1 つのフィールドに対して同じ階層のその他のフィールドにも同じ値が設定されます ディメンションフィールドは ピボットテーブルレポートの行フィールド 列フィールド 又はページフィールドエリアにのみ配置出来る メジャーフィールドは データエリアにのみ配置出来る 階層 又はデータフィールドに xlhidden を設定すると ピボットテーブルから削除されます 2

3 次のは ORDER_DATE フィールドのエリアを表示する Set pvttable = Worksheets("Sheet1").Range("A3").PivotTable Set pvtfield = pvttable.pivotfields("order_date") Select Case pvtfield.orientation Case xlhidden MsgBox " 非表示フィールド " Case xlrowfield MsgBox " 行フィールド " Case xlcolumnfield MsgBox " 列フィールド " Case xlpagefield MsgBox " ページフィールド " Case xldatafield MsgBox " データフィールド " End Select 次のは シート 1 の印刷の向きを横に設定する Worksheets("Sheet1").PageSetup.Orientation = xllandscape AddIndent プロパティ True の場合 セル内の文字列の配置で縦又は横が均等に設定されるときに 文字列を自動的にインデントする 値の取得と設定が可能で有る バリアント型 (Variant) の値を使用する 文字列の配置を均等に配置するには Orientation プロパティの値が xlvertical のときには VerticalAlignment プロパティを xlvaligndistributed に設定 又は Orientation プロパティの値が xlhorizontal のときには HorizontalAlignment プロパティに xlhaligndistributed を設定する 次のは シート 1 のセル A1 に含まれるテキストに対して 横位置の均等割り付けとインデントを設定する With Worksheets("Sheet1").Range("A1").HorizontalAlignment = xlhaligndistributed.addindent = True End With ShrinkToFit プロパティ True の場合 使用可能な列幅に収まるように自動的に文字列を縮小する 指定された範囲のすべてのセルについて同じ値が設定されていない場合 このプロパティは Null 値を返します 値の取得と設定が可能で有る バリアント型 (Variant) の値を使用する 3

4 次のは 使用可能な列幅に収まるように行 1 の文字列を自動的に縮小するようにする Rows(1).ShrinkToFit = True MergeCells プロパティ True の場合 セル範囲又はスタイルが結合セルを含みます 値の取得と設定が可能で有る バリアント型 (Variant) の値を使用する 結合されたセルが含まれるセル範囲を選択すると 指定したセル範囲と実際のセル範囲が異なる場合が有る 選択したセル範囲のアドレスを調べるには Address プロパティを使用する このは セル A3 を含む結合セル範囲に値を設定する Set ma = Range("a3").MergeArea If Range("a3").MergeCells Then ma.cells(1, 1).Value = "42" End If フォント Font オブジェクト オブジェクトのフォント属性 ( フォント名 フォントサイズ 色など ) の全体を表します 使い方 Font オブジェクトを取得するには Font プロパティを使用する 次のは セル範囲 A1:C5 のスタイルを太字に設定する Worksheets("sheet1").Range("a1:c5").Font.Bold = True セル又は描画オブジェクトに含まれて居る文字列の一部だけに書式を設定したい場合は Characters プロパティを使って 文字列の一部だけを取得する Name プロパティ Worksheets("sheet1").Range("a1:c5").Font..Name = "MS 明朝 " FontStyle プロパティ 4

5 フォントスタイルを設定する 値の取得と設定が可能で有る 文字列型 (String) の値を使用する 使用出来る値は " 標準 " " 太字 " " 斜体 " " 太字斜体 " の孰れかで有る FontStyle プロパティを変更すると Font オブジェクトの他のプロパティ (Bold や Italic) に影響を及ぼすことがあるので注意してください 次のは シート 1 のセル A1 のフォントスタイルに太字及び斜体を設定する Worksheets("Sheet1").Range("A1").Font.FontStyle = " 太字斜体 " Size プロパティ フォントのサイズを設定する 値の取得と設定が可能で有る バリアント型 (Variant) の値を使用する 次のは シート 1 のセル範囲 A1:D10 のフォントのサイズを 12 ポイントに設定する With Worksheets("Sheet1").Range("A1:D10").Value = "Test".Font.Size = 12 End With Strikethrough プロパティ True の場合 水平な取り消し線を付けます 値の取得と設定が可能で有る ブール型 (Boolean) の値を使用する 次のは シート 1 のアクティブセルのフォントに取り消し線を設定する Worksheets("Sheet1").Activate ActiveCell.Font.Strikethrough = True Superscript プロパティ True の場合 対象となるフォントが上付き文字になります 既定値は False で有る 値の取得と設定が可能で有る バリアント型 (Variant) の値を使用する 次のは セル A1 の最後の文字を上付き文字にする 5

6 n = Worksheets("Sheet1").Range("A1").Characters.Count Worksheets("Sheet1").Range("A1").Characters(n, 1).Font.Superscript = True Subscript プロパティ True の場合 対象となるフォントは下付き文字になります 既定値は False で有る 値の取得と設定が可能で有る バリアント型 (Variant) の値を使用する 次のは セル A1 の 2 番目の文字を下付き文字にする Worksheets("Sheet1").Range("A1").Characters(2, 1).Font.Subscript = True OutlineFont プロパティ True の場合 フォントをアウトラインフォントにする 値の取得と設定が可能で有る ブール型 (Boolean) の値を使用する OutlineFont プロパティは Windows では無効で有るが 値は保持されるので値の取得や設定は可能で有る 次のは シート 1 のセル A1 のフォントをアウトラインフォントに設定する Worksheets("Sheet1").Range("A1").Font.OutlineFont = True Shadow プロパティ True の場合 フォントに影付きフォント 又はオブジェクトに影付きが設定されています 値の取得と設定が可能で有る ブール型 (Boolean) の値を使用する Windows で Font オブジェクトを対象にするときは このプロパティは無効で有るが 値は保持されます つまり値の取得と設定は可能で有る 次のは グラフ 1 のタイトルに影を付けます Charts("Chart1").ChartTitle.Shadow = True Underline プロパティ フォントに付いて居る下線の種類を設定する 使用出来る定数は XlUnderlineStyle クラスの 6

7 xlunderlinestylenone xlunderlinestylesingle xlunderlinestyledouble xlunderlinestylesingleaccounting xlunderlinestyledoubleaccounting の孰れかで有る 値の取得と設定が可能で有る 長整数型 (Long) の値を使用する 次のは シート 1 のアクティブセルのフォントに下線を設定する Worksheets("Sheet1").Activate ActiveCell.Font.Underline = xlunderlinestylesingle Color プロパティ 次に示すオブジェクトに応じて適用する色を設定する 色は RGB 関数に依り作成された値で有る 値の取得と設定が可能で有る 長整数型 (Long) の値を使用する オブジェクト Border Borders Font Interior 色罫線又は輪郭の色 指定したセル範囲の周囲の罫線の色 線のすべての色が同じではないときは 0( ゼロ ) を返します フォントの色 影付きのセルの影の色 又は描画オブジェクトの塗りつぶしの色 次のは グラフ 1 の数値軸の目盛ラベルの色を設定する Charts("Chart1").Axes(xlValue).TickLabels.Font.Color = RGB(0, 255, 0) ColorIndex プロパティ 次に示すオブジェクトに応じて 輪郭線 フォント 罫線 内部の塗り潰し等に適用する色を設定する 色は 現在のカラーパレットのインデックス 又は 定数で表す 使用出来る定数は XlColorIndex クラスの xlcolorindexautomatic 又は xlcolorindexnone で有る 値の取得と設定が可能で有る バリアント型 (Variant) の値を使用する オブジェクト Border Borders Font Interior 内容輪郭の色 罫線の四辺の色で有る 総ての四辺の罫線が同じ色でない場合 Null 値を返す 文字の色で有る 自動に設定する場合は xlcolorindexautomatic を指定する 内部を塗り潰す色で有る xlcolorindexnone を指定すると 塗り潰しは行われない xlcolorindexautomatic を指定すると 自動に成る ( 描画オブジェクト而巳 ) ColorIndex プロパティでは ブックのカラーパレットのインデックス番号で色を指定する 現在のカラーパレットを返すには Colors プロパティを使用する 7

8 次の図には 標準のカラーパレットのカラーインデックス番号が示されて居る 次の各では 標準のカラーパレットが使われる物とする 次のは シート 1 のセル A1 のフォントの色を赤に変更する Worksheets("Sheet1").Range("A1").Font.ColorIndex = 3 次のはグラフ 1 の数値軸の目盛線の色を設定する With Charts("Chart1").Axes(xlValue) If.HasMajorGridlines Then.MajorGridlines.Border.ColorIndex = 5 End If End With ' 青に設定する 次のは グラフ 1 のグラフエリアで 領域の色を赤に設定し 輪郭線の色を青に設定する With Charts("Chart1").ChartArea.Interior.ColorIndex = 3.Border.ColorIndex = 5 End With パターン Interior オブジェクト オブジェクトの内部を表す 使い方 Interior オブジェクトを取得するには Interior プロパティを使用する 次のは セル A1 の内部の色を赤に設定する Worksheets("sheet1").Range("a1").Interior.ColorIndex = 3 8

9 Color プロパティ フォントの項に同じ ColorIndex プロパティ フォントの項に同じ Pattern プロパティ Interior オブジェクトの場合 内部のパターンを設定する 値の取得と設定が可能で有る 長整数型 (Long) の値を使用する 使用出来る定数は 次に示す XlPattern クラスの孰れかで有る xlpatternautomatic xlpatternchecker xlpatterncrisscross xlpatterndown xlpatterngray16 xlpatterngray25 xlpatterngray50 xlpatterngray75 xlpatterngray8 xlpatterngrid xlpatternhorizontal xlpatternlightdown xlpatternlighthorizontal xlpatternlightup xlpatternlightvertical xlpatternnone xlpatternsemigray75 xlpatternsolid xlpatternup xlpatternvertical 次のは シート 1 のセル A1 の内部のパターンを 網の模様に設定する Worksheets("Sheet1").Range("A1").Interior.Pattern = xlpatterncrisscross PatternColor プロパティ オブジェクト内部の塗り潰し属性のパターンの色を RGB 値で表す 値の取得と設定が可能で有る バリアント型 (Variant) の値を使用する 次のは シート 1 の四角形 1 の塗り潰し属性の色とパターンを設定する With Worksheets("Sheet1").Rectangles(1).Interior.Pattern = xlgrid.patterncolor = RGB(255,0,0) End With PatternColorIndex プロパティ 9

10 オブジェクト内部の塗り潰し属性のパターンの色を 現在のカラーパレットのインデックス番号か定数で表す 使用出来る定数は XlColorIndex クラスの xlcolorindexautomatic 又は xlcolorindexnone で有る 値の取得と設定が可能で有る 長整数型 (Long) の値を使用する 此のプロパティに xlcolorindexautomatic を設定して置くと セルの網掛けのパターンや描画オブジェクトの塗り潰し属性のパターンの色を自動に決定する 亦 xlcolorindexnone に設定して置くと 塗り潰し属性のパターンの色を決定しない 此れは Interior オブジェクトの Pattern プロパティに xlpatternnone を設定するのと同じで有る 標準のカラーパレットのインデックス番号は フォントの項と同じ 10