BEAGLE-HC 医薬品、医療機器の研究・開発 ポータルサイト
 現在位置 : HOME > ITの活用 プログラミング > Excel コードライブラリアン(グラフ操作)
くすりのこと
 治療薬の最前線
データブック
 ヘルスケア市場
 データブック
 (売上ランキング)
ニュース
 企業ニュース
 (パイプラインニュース)
 (財務・決算ニュース)
 (M&Aニュース)
 メディアニュース
ITの活用
 バリデーション
 セキュリティ
 WORD文書の作成
 プログラミング
 (Word/VBA)
 (Excel/VBA)
 (Access/VBA)
 (SAS)
 (SQL)
イベント
 イベントカレンダ
製薬会社研究
 製薬会社
 製薬会社研究
 決算短信一覧
 
 
 
本章では、グラフ操作についてコードサンプルを示しながら説明しています。
 
グラフオブジェクトの種類 ↑ このページの最初へ
【グラフシート】
ブックにグラフを作成する
オブジェクトの取得  Worksheets("シート名").ChartObjects("グラフ名")

【埋め込みグラフ】
ワークシート上にグラフを作成する
オブジェクトの取得  Workbooks("ブック名").ChartObjects("グラフ名")
 
グラフを作成する ↑ このページの最初へ
【埋め込みグラフの作成】

Worksheets("シート名").ChartObjects.Add(Left,Top,Width,Height)  :数字は左端、上端からの位置

ex
With ActiveSheet.ChartObjects.Add(50,40,300,150)
  Chart.ChartType = xColumnClustered          : グラフの種類(集合縦棒)
  Chart.SetSourceData Source:=Activesheet.Range("A3:C9),PlotBy:=xlRows   :データ系列は行基準
End With

【グラフシートへのグラフ作成】

Workbookets("ブック名").Charts.Add(Before,After,Count)
              Before:指定したワークシートの前にグラフシートを追加(省略可能)
              After:指定したワークシートの後にグラフシートを追加(省略可能)
              Count:追加するグラフシートの数(省略可能)

ex
ActiveWorkbook.Charts.Add
With ActiveChart
  ChartType = xColumnClustered          : グラフの種類(集合縦棒)
  SetSourceData Source:=Worksheet(1).Range("A3:C9),PlotBy:=xlRows
End With  
 
グラフにタイトルを表示する ↑ このページの最初へ
With ActiveChart
 .HASTitle = True
 . With ChartTitle
   Text = "チャートタイトル"
 .  Orientation = xlHorizontal
 .  Font.Size = 12
   Font.Bold = True
   Border.LineStyle = xlContinuous
  End With
End With 
 
(埋め込み)グラフの大きさ・位置を変更する ↑ このページの最初へ
With ActiveSheet.ChartObjects(1)
 .Chart.ChartArea.AutoScaleFont = False
 .Left = 10
 Top = 10
 .Width = 300
 .Hight = 300
End With   
 
軸ラベル・目盛り線を表示する ↑ このページの最初へ
With ActiveChart.Axes(xlValue)          数値軸に対して指定
 ..HasTitle = True
 ..AxisTitle.Text = "ラベルの文字"
 .AxisTitle.Font.Size = 12
 ..AxisTitle.Orientation = xlHorizontal
 ..AxisTitle.Left = 30
 .AxisTitle.Top = 20
End With 
 
凡例を表示する ↑ このページの最初へ
With ActiveChart
 ..HasLegend = True
 ..Legend.Position = xlLegendPositionBottom
 .Legend.Font.Itaric = True
End With 
 
データラベルを表示する ↑ このページの最初へ
CMax = ActiveChart.SeriesCollection.Count

For Cnt = 1 To CMax
 With ActiveChart.SeriesCollection(Cnt)
  .HasDataLabels = True
  With DataLabels
   .Font.Bold = True
   Font.Italic = True
   Font.Size = 12
   .Position = xlLabelPositionOutSideEnd
  End With
End With 
 
図形オブジェクトをグループ化する ↑ このページの最初へ
Sheet1 の図形オブジェクト 1、3、および 5 をグループ化する

Set myGroup = Worksheets("Sheet1").DrawingObjects(Array(1, 3, 5)).Group
Worksheets("Sheet1").Activate
myGroup.Select

↑ このページの最初へ

   ご意見・ご感想をお寄せください。 ‖ お問い合わせはこちらから ‖ このサイトについて           サイトマップ  ‖
  Copyright 2006 - 2013 uTRAM Corp. All Rights Reserved
 
PHARCIS(ヘルスケア最新情報提供)
Facebook for PHARCIS
ClinMark8
アクセスランキング
(2013年5月)

1位 企業ニュース
2位 売上ランキング
3位 メディアニュース
4位 製薬会社
5位 治療薬の最前線
6位 決算短信一覧
7位 データブック
8位 製薬会社研究
9位 イベントカレンダ
10位 パイプラインニュース