エクセルのVBAについて 削除
| Message#2 2015年2月5日(木)11時35分 From: いろは |
| 具体的にどうしたいか、こちらで判りませんから、以下に挙げる例を基に、 ＶＢＡのヘルプ、ＶＢＥのオブジェクトブラウザ等を参考に応用して、 やりたいように書き上げていってください。 （添付画像からやりたい事をこちらで察するのは難しいですし、 そちらから詳細な説明を加えるのも大変だと思いますので。） Series データ系列 FillFormat マーカー LineFormat 線 各オブジェクトについては、敢えて変数とWIthフレーズを使うことで、 以下の記述の各Withブロックの内側に ドット"."をタイプするだけでメソッドやプロパティ等のメンバーが、 イコール"="をタイプするだけでプロパティに応じた組込み定数の候補が、 入力のヒントとして表示されるような書き方にしてあります。 ＶＢＥのオブジェクトブラウザを（Ｆ２キーで）表示して、 中段左側にある[クラス]と書かれたペイン（小さいウィンドウ）の中を探して、 上記の３つのキーワードを、それぞれクリックしてみて下さい。 中段右側に['Series' のメンバー]としてメソッドやプロパティが一覧できます。 またはＶＢＡのヘルプを表示させて上記の３つのキーワードを検索してみて下さい。 Sub Re8908589() Dim oSeries As Series Dim oFillFormat As FillFormat Dim oLineFormat As LineFormat With ActiveSheet.ChartObjects("グラフ 1").Chart ' ★グラフ名を文字列で指定 Set oSeries = .SeriesCollection(1) ' ★データ系列を番号で指定 With oSeries ' .Smooth = True With .Format Set oFillFormat = .Fill With oFillFormat ' .Visible = msoTrue ' .Transparency = 0 .ForeColor.RGB = RGB(255, 0, 0) ' マーカーの色を赤にする場合 ' .Solid End With Set oLineFormat = .Line With oLineFormat ' .Visible = msoTrue ' .Transparency = 0 .ForeColor.RGB = RGB(255, 0, 0) ' 線の色を赤にする場合 .Style = msoLineSingle ' 線のスタイルを単線にする場合 ' .Weight = 1 ' .DashStyle = msoLineSolid End With End With End With End With End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
