VB 関連情報

サンプルコード

MSChart(円グラフ)のサンプル

Private Sub Command1_Click()
    With MSChart1
        ' 円グラフを指定
        .chartType = VtChChartType2dPie
        
        ' テストデータ
        For i = 1 To 4
            .Row = 1
            .Column = i
            .Data = Rnd() * 100 ' ランダムな値(100点満点)をセット
        Next
        
        With .DataGrid
            .RowLabelCount = 1
            .ColumnCount = 4
            .RowCount = 1
            For i = 1 To .ColumnCount
                .ColumnLabel(i, 1) = "Column " & i
            Next i
            .RowLabel(1, 1) = "成績グラフ"
        End With
        
        ' 項目の表示内容のカスタマイズ
        For i = 1 To .Plot.SeriesCollection.Count
            
            With .Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel
               ' ラベルはパイのスライスの内部に表示されます。
               .LocationType = VtChLabelLocationTypeInside
               ' データ ポイントの値がラベルに表示されます。
               .Component = VtChLabelComponentValue
                Select Case i
                Case 1
                   .ValueFormat = "国語 0"
                Case 2
                   .ValueFormat = "算数 0"
                Case 3
                   .ValueFormat = "理科 0"
                Case 4
                   .ValueFormat = "社会 0"
                End Select
            End With
        Next i
        
    End With
    
End Sub
  • 実行結果
    MSChart_Pie_20040715.jpg

添付ファイル: fileMSChart_Pie_20040715.jpg 1005件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2010-02-27 (土) 14:19:04 (4249d)