エクセル -> VBA

グラフの描画


Sub グラフ作成()

   グラフ名 = "CPU使用率"
   シート名 = "グラフ"

   開始行 = 1
   開始列 = 1
   グラフ高 = 10
   グラフ幅 = 15

   '# グラフの位置を定義 #
   Dim グラフ位置 As Range
   Set グラフ位置 = Range(Cells(開始行,開始列),cells(開始行+グラフ高, 開始列+グラフ幅))

   '# グラフのデータ範囲を定義 #
   Dim グラフ範囲 As Range
   Set グラフ範囲 = Range("B:F")

   '# グラフ横軸項目列を定義 #
   Dim グラフ横軸項目 As Range
   Set グラフ横軸項目 = Range("A:A")

   With ActiveSheet.ChartObjects.Add(Left:=グラフ位置.Left, _
                                     Top:=グラフ位置.Top, _
                                     Width:=グラフ位置.Width, _
                                     Height:=グラフ位置.Height)
            .Chart.ChartType = xlLine
            .Chart.SetSourceData Source:=グラフ範囲, PlotBy:=xlColumns
            .Chart.Axes(xlCategory, xlPrimary).CategoryNames = グラフ横軸項目
            .Chart.Location Where:=xlLocationAsObject, Name:=シート名
            .Name = CPU使用率
   End With

End Sub


グラフ範囲をセルで指定する場合
Set グラフ範囲 = Range("B:F")
Set グラフ範囲 = Range(cells(1,2),cells(65536,6))

別シートのデータ範囲を指定する場合
Set グラフ範囲 = Sheets("データ").Range(cells(1,2),cells(65536,6))
としてもエラーになるので、以下のようにセルにもシート名を指定する。
Set グラフ範囲 = Sheets("データ").Range(Sheets("データ").cells(1,2),Sheets("データ").cells(65536,6))


      Document-Folder          一覧
HP-UX
HULFT
JAVA
JP1
JavaScript
Linux
MAC
PHP
Perl
Python
Ruby
SOA
Solaris
Unix全般
Windows
XML
エクセル
スタイルシート
セキュリティー
データベース
ネットワーク
パソコン
ブラウザ
プログラム構文
仮想化
          RSS-Folder
ニュース
   アットマーク・アイティ(@IT)
   シンクイット(ThinkIT)
   インターネットコム
   インターネットウォッチ
   日経IT-Pro
   日経パソコン
   CNET Japan
   ZD-NetJapan
   MYCOM
   RBB-Today
ベンダー
   日本IBM
   日本HP
   サンマイクロシステムズ
   NEC
   富士通
   日立
ソフトウェア
   マイクロソフト
   トレンドマイクロ
   オラクル
   サイボウズ
   Mozilla
   野村総合研究所
   (その他ソフトウェア企業)
更新履歴 一覧
 07/08 PERF
プログラム構文
 07/07 PERF
プログラム構文
 06/25 オブジェクトプログラミング2
Perl>サンプル
 07/12 クローン作成
仮想化>vCenter
 07/12 vyatta設定
ネットワーク>vyatta
 07/12 vyattaインストール
ネットワーク>vyatta
 07/12 リポジトリサーバ
Linux>サーバ構築
 07/05 VMwareのインストール
仮想化>VMware
 07/05 PXEブート
仮想化>KVM
 07/01 DHCPでのPXEブート
仮想化>KVM
 06/27 qcow2仮想DISK作成
仮想化>KVM
 06/13 NWの設定
仮想化>VMwareEsxi
 06/13 IPアドレスの変更
仮想化>VMwareEsxi
 06/12 自動ssh
Unix全般>シェル>Bash
 06/12 diffプログラミング
Python
Google