none
請問一下 VB要怎麼去輸入值給EXCEL的圖表 RRS feed

  • 問題

  • 請問一下 EXCEL的圖表 我想讓它自動把我要的值輸入進去
    我上網看一堆都是VBA的說明
    請問一下 有VB的寫法嗎
    2009年11月25日 上午 08:37

解答

  • 類別圖才用 xlCategory,而你把 Chart 設為 xlXYScatter 型態,那個是 XY 散布圖

    還是那句老話,請看線上手冊:
    ms-help://MS.EXCEL.DEV.12.1028/EXCEL.DEV/content/HV10072379.htm
    Excel 開發人員參考資料
    XlAxisType 列舉
    指定座標軸類型。
    名稱描述
    xlCategory 1 座標軸刻度類別
    xlSeriesAxis 3 座標軸刻度資料數列
    xlValue 2 座標軸刻度值





    ms-help://MS.EXCEL.DEV.12.1028/EXCEL.DEV/content/HV10072400.htm
    Excel 開發人員參考資料
    XlChartType 列舉
    指定圖表類型。
    名稱描述
    xl3DArea -4098 立體區域圖
    xl3DAreaStacked 78 立體堆疊區域圖
    xl3DAreaStacked100 79 百分比堆疊區域圖
    xl3DBarClustered 60 立體群組橫條圖
    xl3DBarStacked 61 立體堆疊橫條圖
    xl3DBarStacked100 62 立體百分比堆疊橫條圖
    xl3DColumn -4100 立體直條圖
    xl3DColumnClustered 54 立體群組直條圖
    xl3DColumnStacked 55 立體堆疊直條圖
    xl3DColumnStacked100 56 立體百分比堆疊直條圖
    xl3DLine -4101 立體折線圖
    xl3DPie -4102 立體圓形圖
    xl3DPieExploded 70 分裂式立體圓形圖
    xlArea 1 區域圖
    xlAreaStacked 76 堆疊區域圖
    xlAreaStacked100 77 百分比堆疊區域圖
    xlBarClustered 57 群組橫條圖
    xlBarOfPie 71 圓形圖帶有子橫條圖
    xlBarStacked 58 堆疊橫條圖
    xlBarStacked100 59 百分比堆疊橫條圖
    xlBubble 15 泡泡圖
    xlBubble3DEffect 87 立體泡泡圖
    xlColumnClustered 51 群組直條圖
    xlColumnStacked 52 堆疊直條圖
    xlColumnStacked100 53 百分比堆疊直條圖
    xlConeBarClustered 102 群組圓錐柱圖
    xlConeBarStacked 103 堆疊圓錐柱圖
    xlConeBarStacked100 104 百分比堆疊圓錐柱圖
    xlConeCol 105 立體圓錐條圖
    xlConeColClustered 99 群組圓錐條圖
    xlConeColStacked 100 堆疊圓錐條圖
    xlConeColStacked100 101 百分比堆疊圓錐條圖
    xlCylinderBarClustered 95 群組圓柱圖
    xlCylinderBarStacked 96 堆疊圓柱圖
    xlCylinderBarStacked100 97 百分比堆疊圓柱圖
    xlCylinderCol 98 立體圓條圖
    xlCylinderColClustered 92 群組圓錐條圖
    xlCylinderColStacked 93 堆疊圓錐條圖
    xlCylinderColStacked100 94 百分比堆疊圓條圖
    xlDoughnut -4120 環圈圖
    xlDoughnutExploded 80 分裂式環圈圖
    xlLine 4 折線圖
    xlLineMarkers 65 含有資料標記的折線圖
    xlLineMarkersStacked 66 含有資料標記的堆疊折線圖
    xlLineMarkersStacked100 67 含有資料標記的百分比堆疊折線圖
    xlLineStacked 63 堆疊折線圖
    xlLineStacked100 64 百分比堆疊折線圖
    xlPie 5 圓形圖
    xlPieExploded 69 分裂式圓形圖
    xlPieOfPie 68 子母圓形圖
    xlPyramidBarClustered 109 群組金字塔柱圖
    xlPyramidBarStacked 110 堆疊金字塔柱圖
    xlPyramidBarStacked100 111 百分比堆疊金字塔柱圖
    xlPyramidCol 112 立體金字塔條圖
    xlPyramidColClustered 106 群組金字塔條圖
    xlPyramidColStacked 107 堆疊金字塔條圖
    xlPyramidColStacked100 108 百分比堆疊金字塔條圖
    xlRadar -4151 雷達圖
    xlRadarFilled 82 填滿式雷達圖
    xlRadarMarkers 81 含有資料標記的雷達圖
    xlStockHLC 88 最高-最低-收盤股價圖
    xlStockOHLC 89 開盤-最高-最低-收盤股價圖
    xlStockVHLC 90 成交量-最高-最低-收盤股價圖
    xlStockVOHLC 91 成交量-開盤-最高-最低-收盤股價圖
    xlSurface 83 立體曲面圖
    xlSurfaceTopView 85 曲面圖 (俯視)
    xlSurfaceTopViewWireframe 86 曲面圖 (俯視、只顯示線條)
    xlSurfaceWireframe 84 立體曲面圖 (只顯示線條)
    xlXYScatter -4169 散佈圖
    xlXYScatterLines 74 含折線的散佈圖
    xlXYScatterLinesNoMarkers 75 含折線但沒有資料標記的散佈圖
    xlXYScatterSmooth 72 帶有平滑線的散佈圖
    xlXYScatterSmoothNoMarkers 73 帶有平滑線但沒有資料標記的散佈圖

    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    • 已標示為解答 x32 2009年11月27日 上午 01:15
    2009年11月26日 上午 11:46
  •         Dim xlAxisCategory, xlAxisValue As Microsoft.Office.Interop.Excel.Axes
            xlAxisCategory = CType(ObjExcelChart.Axes(, XlAxisGroup.xlPrimary), Microsoft.Office.Interop.Excel.Axes)
            xlAxisCategory.Item(XlAxisType.xlCategory).HasTitle = True
            xlAxisCategory.Item(XlAxisType.xlCategory).AxisTitle.Characters.Text = "Items"
            xlAxisValue = CType(ObjExcelChart.Axes(, XlAxisGroup.xlSecondary), Microsoft.Office.Interop.Excel.Axes)
            xlAxisValue.Item(XlAxisType.xlValue).HasTitle = True
            xlAxisValue.Item(XlAxisType.xlValue).AxisTitle.Characters.Text = "Sale/Income"
            ObjExcelChart.Location(Where:=XlChartLocation.xlLocationAsNewSheet)      '將圖表產生在一新的活頁中
    

    把您'With ObjExcelChart那段註解,圖應該會出來吧...

    • 已標示為解答 x32 2009年11月27日 上午 01:14
    2009年11月26日 下午 02:21

所有回覆

  • 我指的是圖表
    怎麼把值傳給圖表
    而不是把值給欄位
    • 已編輯 x32 2009年11月25日 下午 12:51
    2009年11月25日 上午 09:02
  • Creating Excel Charts Dynamically from Database, using VB.NET

    2009年11月25日 上午 09:10
  • 這頁寫著:
    http://tlcheng.twbbs.org/TLCheng/Basic/vbs/vbscript.htm


     註:C:\WINDOWS\SAMPLES\WSH\Chart.VBS 這個範例還不錯看,是結合 Excel 中的圖表功能,本段的超連結有設定到 C:\... 的部分只支援 Windows 98 + IE,因為這是連到你自己的電腦中
    附註:Windows NT/2k/XP 內不含這個 samples 目錄,壓縮供網友參考,版權屬 Microsoft 所有


    所以你可以把那個 samples 抓下來看。
    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    2009年11月25日 上午 09:31
  • X32:
    你有看過 "張貼文章應注意事項 " 嗎 ?

    7. 禁止謾罵或挑釁。

    請不要對善意的回覆者進行言語攻擊,即使是善意回覆者回覆內容錯誤也是一樣,可以直接說明錯誤地方,但不要涉及人身攻擊。

    善意的回覆者,對於全社群來說,都是重要的指導者,都是我們最珍貴的資源, 大家都不希望善意的回覆者的熱情被攻擊性的文章澆熄,也希望大家支持這個理想。在國內 Visual Basic 早期最大的幾個討論區也都有一致的共識,常常會出現小白大家釘的狀況,因為大家都想維護少有的熱情貢獻者。微軟官方討論區可能不太會出現小白大家釘的狀 況,但是精神仍會維持,若屬攻擊性文章,請恕刪除。

    所以麻煩你不要使用太強烈的語氣, 可以嗎 ?

    學而不思則罔, 思而不學則殆.
    如果你一直都看不懂、不想學習看懂、抗拒看懂MSDN Library的話,那你最好放棄想要寫好程式這件事
    如果你自私地不肯回饋與分享,那別人為何要花時間回答你的問題?
    2009年11月25日 下午 12:47
    版主
  • 我自己上網找了一些範例  總算拼湊出來
    Dim ObjExcelApp As New Excel.Application  
    Dim ObjExcelWorkBook As Excel.Workbook      
    Dim ObjExcelChart As Excel.Chart 
    ObjExcelChart = ObjExcelWorkBook.Charts.Add()       '新增一圖表
    ObjExcelChart.Name = "test"         '新圖表的名稱
    ObjExcelChart.ChartType = Excel.XlChartType.xlXYScatter      '圖表類型

    ObjExcelChart.SeriesCollection.NewSeries()    '新增一數列
            ObjExcelChart.Application.ActiveChart.SeriesCollection(1).Select()  '選擇第一數列
            ObjExcelChart.SeriesCollection(1).name = "Iinmax"
            ObjExcelChart.SeriesCollection(1).XValues = "=Sheet1!R1C2:R13C2"
            ObjExcelChart.SeriesCollection(1).Values = "=Sheet1!R1C3:R13C3"

            ObjExcelChart.SeriesCollection.NewSeries()   
            ObjExcelChart.Application.ActiveChart.SeriesCollection(2).Select()
            ObjExcelChart.SeriesCollection(2).name = "Iinmin"
            ObjExcelChart.SeriesCollection(2).XValues = "=Sheet1!R1C3:R13C3"
            ObjExcelChart.SeriesCollection(2).Values = "=Sheet1!R1C4:R13C4"
    ObjExcelChart.Location(Where:=Excel.XlChartLocation.xlLocationAsNewSheet)



    想請問一下  有誰知道怎麼設定圖表選項裡的 圖表標題   數值x軸 數值y軸的名稱

    2009年11月26日 上午 09:14
  •         ObjExcelChart.HasTitle = True
            ObjExcelChart.ChartTitle.Text = "Sale/Income Bar Chart"
            'set titles for Axis values and categories
    
            Dim xlAxisCategory, xlAxisValue As Excel.Axes
            xlAxisCategory = CType(ObjExcelChart.Axes(, _
                             Excel.XlAxisGroup.xlPrimary), Excel.Axes)
            xlAxisCategory.Item(Excel.XlAxisType.xlCategory).HasTitle = True
            xlAxisCategory.Item(Excel.XlAxisType.xlCategory).AxisTitle.Characters.Text = "Items"
            xlAxisValue = CType(ObjExcelChart.Axes(, _
                          Excel.XlAxisGroup.xlPrimary), Excel.Axes)
            xlAxisValue.Item(Excel.XlAxisType.xlValue).HasTitle = True
            xlAxisValue.Item(Excel.XlAxisType.xlValue).AxisTitle.Characters.Text = "Sale/Income"

    參考以上試試...
    2009年11月26日 上午 09:36
  • 練習看看線上手冊,上面都有 VBA 範例...
    ms-help://MS.EXCEL.DEV.12.1028/EXCEL.DEV/content/HV10034913.htm

    Excel 開發人員參考資料
    Chart.ChartTitle 屬性
    會傳回 ChartTitle 物件,這個物件代表指定圖表的標題。唯讀的。

    語法

    運算式.ChartTitle

    運算式   代表 Chart 物件的變數。

    範例

    本範例會設定 Chart1 的標題文字。

    [Visual Basic for Applications]
    With Charts("Chart1")
        .HasTitle = True
        .ChartTitle.Text = "First Quarter Sales"
    End With




    ms-help://MS.EXCEL.DEV.12.1028/EXCEL.DEV/content/HV10036076.htm
    Excel 開發人員參考資料
    AxisTitle 物件
    代表圖表座標軸標題。

    備註

    使用 AxisTitle 屬性可傳回 AxisTitle 物件。

    只有將座標軸的 HasTitle 屬性設定為 True 之後,才會有 AxisTitle 物件存在,從而才能使用該物件。

     

    範例
    以下範例啟動內嵌圖表一,設定其數值座標軸標題文字,將其字型設為 10 點的 Bookman 字型,並將單字 millions 設為斜體。

    [Visual Basic for Applications]
    Worksheets("sheet1").ChartObjects(1).Activate
    With ActiveChart.Axes(xlValue)
        .HasTitle = True
        With .AxisTitle
            .Caption = "Revenue (millions)"
            .Font.Name = "bookman"
            .Font.Size = 10
            .Characters(10, 8).Font.Italic = True
        End With
    End With
    

    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    2009年11月26日 上午 09:56
  • 換個方法    請問有辦法是開啟現有的chart  而不是創一個新的
    因為我圖表都弄好  只需要把要參考的 數列範圍丟進去就行了




    ObjExcelChart.HasTitle = True
    ObjExcelChart.ChartTitle.Text = "Sale/Income Bar Chart"

    這個我也有找到 但它是C#寫的語法   我試了 編譯沒問題 但就是沒效果
    下面是我完整的程式碼    開一個控制台   加入參考 EXCEL.DLL      再加一個excel檔 到C:\             C:\test1.xls
    就能執行了


     




    Module Module1

        Sub Main()

     
            Dim ObjExcelApp As New Excel.Application   '宣告EXCEL應用程式

            Dim ObjExcelWorkBook As Excel.Workbook      '宣告EXCEL工作簿

            Dim ObjExcelWorkSheet1 As Excel.Worksheet   '宣告EXCEL工作頁
            Dim ObjExcelWorkSheet2 As Excel.Worksheet
            Dim ObjExcelWorkSheet3 As Excel.Worksheet

            Dim ObjExcelChart As Excel.Chart         '宣告EXCEL圖表功能


            '產生一 Excel 檔案


            'Debug.Print ObjExcelApp.Path 'Office Excel 安裝目錄
            'Debug.Print ObjExcelApp.PathSeparator 'Office Excel 目錄分格字元

            '開啟一個現有的工作表 ( XLS檔 )
            ObjExcelWorkBook = ObjExcelApp.Workbooks.Open("C:\test1.xls")  '打開工作簿

            '開啟工作表中三個 Sheet1  Sheet2   Sheet3
            ObjExcelWorkSheet1 = ObjExcelWorkBook.Sheets("Sheet1")      '開啟工作頁  並命名
            ObjExcelWorkSheet2 = ObjExcelWorkBook.Sheets("Sheet2")
            ObjExcelWorkSheet3 = ObjExcelWorkBook.Sheets("Sheet3")


            With ObjExcelWorkSheet1
                '設定各欄標題
                .Range("B1").Value = "A君"
                .Range("C1").Value = "B君"
                .Range("D1").Value = "C君"

                '設定各列標題
                .Range("A2").Value = "一"
                .Range("A3").Value = "二"
                .Range("A4").Value = "三"
                .Range("A5").Value = "四"
                .Range("A6").Value = "五"
                .Range("A7").Value = "六"
                .Range("A8").Value = "七"
                .Range("A9").Value = "八"
                .Range("A10").Value = "九"
                .Range("A11").Value = "十"
                .Range("A12").Value = "十一"
                .Range("A13").Value = "十二"

                '設定第一欄內容
                .Range("B2").Value = 5
                .Range("B3").Value = 1
                .Range("B4").Value = 0
                .Range("B5").Value = 5
                .Range("B6").Value = 1
                .Range("B7").Value = 0
                .Range("B8").Value = 7
                .Range("B9").Value = 7
                .Range("B10").Value = 5
                .Range("B11").Value = 8
                .Range("B12").Value = 4
                .Range("B13").Value = 0

                '設定第二欄內容
                .Range("C2").Value = 3
                .Range("C3").Value = 7
                .Range("C4").Value = 4
                .Range("C5").Value = 8
                .Range("C6").Value = 1
                .Range("C7").Value = 0
                .Range("C8").Value = 7
                .Range("C9").Value = 5
                .Range("C10").Value = 0
                .Range("C11").Value = 5
                .Range("C12").Value = 1
                .Range("C13").Value = 8

                '設定第三欄內容
                .Range("D2").Value = 7
                .Range("D3").Value = 5
                .Range("D4").Value = 1
                .Range("D5").Value = 4
                .Range("D6").Value = 2
                .Range("D7").Value = 2
                .Range("D8").Value = 3
                .Range("D9").Value = 4
                .Range("D10").Value = 7
                .Range("D11").Value = 9
                .Range("D12").Value = 4
                .Range("D13").Value = 0

            End With

            ObjExcelChart = ObjExcelWorkBook.Charts.Add()       '新增一圖表

            '  ObjExcelChart.Name = "1"         '新圖表的名稱
            ObjExcelChart.ChartType = Excel.XlChartType.xlXYScatter

        
            '   Call ObjExcelChart.SetSourceData(Source:=ObjExcelWorkSheet1.Range("B1:B13", "C1:C13"), PlotBy:=Excel.XlRowCol.xlColumns)    'X=Sheet1!$B$2:$B$13    Y=Sheet1!$C$2:$C$13
            ' Call ObjExcelChart.SetSourceData(Source:=ObjExcelWorkSheet1.Range("B1:B13", "C1:C13"), PlotBy:=Excel.XlRowCol.xlRows)  '產生12各數列 X=Sheet1!$B$1:$C$1   Y=Sheet1!$B$2:$C$2
          
            ' ObjExcelChart.Application.ActiveChart.SeriesCollection.NewSeries()
            ObjExcelChart.SeriesCollection.NewSeries()    '新增來源資料表內的數列
            ObjExcelChart.Application.ActiveChart.SeriesCollection(1).Select()  '選擇第一個資料表
            ObjExcelChart.SeriesCollection(1).name = "Iinmax"
            ObjExcelChart.SeriesCollection(1).XValues = "=Sheet1!R1C2:R13C2"
            ObjExcelChart.SeriesCollection(1).Values = "=Sheet1!R1C3:R13C3"

            ObjExcelChart.HasTitle = True
            ObjExcelChart.ChartTitle.Text = "Sale/Income Bar Chart"

     

            ObjExcelChart.SeriesCollection.NewSeries()    '新增來源資料表內的數列
            ' ObjExcelChart.Application.ActiveChart.SeriesCollection.NewSeries()
            ObjExcelChart.Application.ActiveChart.SeriesCollection(2).Select()
            ObjExcelChart.SeriesCollection(2).name = "Iinmin"
            ObjExcelChart.SeriesCollection(2).XValues = "=Sheet1!R1C3:R13C3"
            ObjExcelChart.SeriesCollection(2).Values = "=Sheet1!R1C4:R13C4"
      
            ObjExcelChart.HasTitle = True
            ObjExcelChart.ChartTitle.Text = "Sale/Income Bar Chart"
            'set titles for Axis values and categories

            Dim xlAxisCategory, xlAxisValue As Excel.Axes
            xlAxisCategory = CType(ObjExcelChart.Axes(, _
                             Excel.XlAxisGroup.xlPrimary), Excel.Axes)
            xlAxisCategory.Item(Excel.XlAxisType.xlCategory).HasTitle = True
            xlAxisCategory.Item(Excel.XlAxisType.xlCategory).AxisTitle.Characters.Text = "Items"
            xlAxisValue = CType(ObjExcelChart.Axes(, _
                          Excel.XlAxisGroup.xlPrimary), Excel.Axes)
            xlAxisValue.Item(Excel.XlAxisType.xlValue).HasTitle = True
            xlAxisValue.Item(Excel.XlAxisType.xlValue).AxisTitle.Characters.Text = "Sale/Income"


            Call ObjExcelChart.Location(Where:=Excel.XlChartLocation.xlLocationAsNewSheet)      '將圖表產生在一新的活頁中
     
            '尚未了解部份,有時改了上面形式會造成這部份發生錯誤
            With ObjExcelChart
                .HasTitle = False
                .Axes(Excel.XlAxisType.xlCategory, Excel.XlAxisGroup.xlPrimary).HasTitle = False
                .Axes(Excel.XlAxisType.xlValue, Excel.XlAxisGroup.xlPrimary).HasTitle = False
            End With

            '設定工作表隱藏 (可以在 EXCEL 用檢視程式碼的方式將該工作表修改為可顯示 )
            ObjExcelWorkSheet2.Visible = Excel.XlSheetVisibility.xlSheetHidden
            ObjExcelWorkSheet3.Visible = Excel.XlSheetVisibility.xlSheetHidden


            '儲存所有工作簿的改變
            ObjExcelWorkBook.Save()

            '關閉工作簿
            ObjExcelWorkBook.Close()

            '關閉 Excel App
            ObjExcelApp.Quit()

            '設定所有的引用都為 Nothing,避免另一 Excel 無法開啟
            ObjExcelWorkSheet1 = Nothing
            ObjExcelWorkSheet2 = Nothing
            ObjExcelWorkSheet3 = Nothing
            ObjExcelChart = Nothing
            ObjExcelWorkBook = Nothing
            ObjExcelApp = Nothing

        End Sub

    End Module

    2009年11月26日 上午 10:00
  • 類別圖才用 xlCategory,而你把 Chart 設為 xlXYScatter 型態,那個是 XY 散布圖

    還是那句老話,請看線上手冊:
    ms-help://MS.EXCEL.DEV.12.1028/EXCEL.DEV/content/HV10072379.htm
    Excel 開發人員參考資料
    XlAxisType 列舉
    指定座標軸類型。
    名稱描述
    xlCategory 1 座標軸刻度類別
    xlSeriesAxis 3 座標軸刻度資料數列
    xlValue 2 座標軸刻度值





    ms-help://MS.EXCEL.DEV.12.1028/EXCEL.DEV/content/HV10072400.htm
    Excel 開發人員參考資料
    XlChartType 列舉
    指定圖表類型。
    名稱描述
    xl3DArea -4098 立體區域圖
    xl3DAreaStacked 78 立體堆疊區域圖
    xl3DAreaStacked100 79 百分比堆疊區域圖
    xl3DBarClustered 60 立體群組橫條圖
    xl3DBarStacked 61 立體堆疊橫條圖
    xl3DBarStacked100 62 立體百分比堆疊橫條圖
    xl3DColumn -4100 立體直條圖
    xl3DColumnClustered 54 立體群組直條圖
    xl3DColumnStacked 55 立體堆疊直條圖
    xl3DColumnStacked100 56 立體百分比堆疊直條圖
    xl3DLine -4101 立體折線圖
    xl3DPie -4102 立體圓形圖
    xl3DPieExploded 70 分裂式立體圓形圖
    xlArea 1 區域圖
    xlAreaStacked 76 堆疊區域圖
    xlAreaStacked100 77 百分比堆疊區域圖
    xlBarClustered 57 群組橫條圖
    xlBarOfPie 71 圓形圖帶有子橫條圖
    xlBarStacked 58 堆疊橫條圖
    xlBarStacked100 59 百分比堆疊橫條圖
    xlBubble 15 泡泡圖
    xlBubble3DEffect 87 立體泡泡圖
    xlColumnClustered 51 群組直條圖
    xlColumnStacked 52 堆疊直條圖
    xlColumnStacked100 53 百分比堆疊直條圖
    xlConeBarClustered 102 群組圓錐柱圖
    xlConeBarStacked 103 堆疊圓錐柱圖
    xlConeBarStacked100 104 百分比堆疊圓錐柱圖
    xlConeCol 105 立體圓錐條圖
    xlConeColClustered 99 群組圓錐條圖
    xlConeColStacked 100 堆疊圓錐條圖
    xlConeColStacked100 101 百分比堆疊圓錐條圖
    xlCylinderBarClustered 95 群組圓柱圖
    xlCylinderBarStacked 96 堆疊圓柱圖
    xlCylinderBarStacked100 97 百分比堆疊圓柱圖
    xlCylinderCol 98 立體圓條圖
    xlCylinderColClustered 92 群組圓錐條圖
    xlCylinderColStacked 93 堆疊圓錐條圖
    xlCylinderColStacked100 94 百分比堆疊圓條圖
    xlDoughnut -4120 環圈圖
    xlDoughnutExploded 80 分裂式環圈圖
    xlLine 4 折線圖
    xlLineMarkers 65 含有資料標記的折線圖
    xlLineMarkersStacked 66 含有資料標記的堆疊折線圖
    xlLineMarkersStacked100 67 含有資料標記的百分比堆疊折線圖
    xlLineStacked 63 堆疊折線圖
    xlLineStacked100 64 百分比堆疊折線圖
    xlPie 5 圓形圖
    xlPieExploded 69 分裂式圓形圖
    xlPieOfPie 68 子母圓形圖
    xlPyramidBarClustered 109 群組金字塔柱圖
    xlPyramidBarStacked 110 堆疊金字塔柱圖
    xlPyramidBarStacked100 111 百分比堆疊金字塔柱圖
    xlPyramidCol 112 立體金字塔條圖
    xlPyramidColClustered 106 群組金字塔條圖
    xlPyramidColStacked 107 堆疊金字塔條圖
    xlPyramidColStacked100 108 百分比堆疊金字塔條圖
    xlRadar -4151 雷達圖
    xlRadarFilled 82 填滿式雷達圖
    xlRadarMarkers 81 含有資料標記的雷達圖
    xlStockHLC 88 最高-最低-收盤股價圖
    xlStockOHLC 89 開盤-最高-最低-收盤股價圖
    xlStockVHLC 90 成交量-最高-最低-收盤股價圖
    xlStockVOHLC 91 成交量-開盤-最高-最低-收盤股價圖
    xlSurface 83 立體曲面圖
    xlSurfaceTopView 85 曲面圖 (俯視)
    xlSurfaceTopViewWireframe 86 曲面圖 (俯視、只顯示線條)
    xlSurfaceWireframe 84 立體曲面圖 (只顯示線條)
    xlXYScatter -4169 散佈圖
    xlXYScatterLines 74 含折線的散佈圖
    xlXYScatterLinesNoMarkers 75 含折線但沒有資料標記的散佈圖
    xlXYScatterSmooth 72 帶有平滑線的散佈圖
    xlXYScatterSmoothNoMarkers 73 帶有平滑線但沒有資料標記的散佈圖

    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    • 已標示為解答 x32 2009年11月27日 上午 01:15
    2009年11月26日 上午 11:46
  • xlCategory  這是Joe Hung   打的程式碼
    我直接把它copy進去  
    我要的的確是XY 散布圖


    對了你說的線上手冊  我沒辦法在進到別的網址 
    只能看的到你上面那兩個網址的資料
    xlXYScatter -4169 散佈圖
    xlXYScatter -4169 散佈圖
    2009年11月26日 下午 12:00
  • 你如果在安裝 Office 時,有安裝開發者線上手冊,你才能用 IE 的網址看到這個位置,這個位置是本機內的位置,而非網路上的位置。




    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    2009年11月26日 下午 01:59
  •         Dim xlAxisCategory, xlAxisValue As Microsoft.Office.Interop.Excel.Axes
            xlAxisCategory = CType(ObjExcelChart.Axes(, XlAxisGroup.xlPrimary), Microsoft.Office.Interop.Excel.Axes)
            xlAxisCategory.Item(XlAxisType.xlCategory).HasTitle = True
            xlAxisCategory.Item(XlAxisType.xlCategory).AxisTitle.Characters.Text = "Items"
            xlAxisValue = CType(ObjExcelChart.Axes(, XlAxisGroup.xlSecondary), Microsoft.Office.Interop.Excel.Axes)
            xlAxisValue.Item(XlAxisType.xlValue).HasTitle = True
            xlAxisValue.Item(XlAxisType.xlValue).AxisTitle.Characters.Text = "Sale/Income"
            ObjExcelChart.Location(Where:=XlChartLocation.xlLocationAsNewSheet)      '將圖表產生在一新的活頁中
    

    把您'With ObjExcelChart那段註解,圖應該會出來吧...

    • 已標示為解答 x32 2009年11月27日 上午 01:14
    2009年11月26日 下午 02:21
  • 我終於知道我為什麼  下面那一段會沒顯示出來   因為我加入參考的excel 1.5.0.0  可能太舊了   我加入新的之後就沒問題了
    感謝上面幾位的幫忙

    With ObjExcelChart
                .HasTitle = True
                .ChartTitle.Text = "First Quarter Sales"
    End With

    2009年11月27日 上午 01:14
  • http://www.dailydoseofexcel.com/blogpix/simplegantt_2.gif

    請先看上面的圖
    請問當中的AUTO  下面那五個選項 要怎麼去設定
    3Q
    2009年12月4日 上午 01:35
  • ...
    線上手冊:ms-help://MS.EXCEL.DEV.12.1028/EXCEL.DEV/content/HV10087876.htm

    Axis 物件成員

    屬性

    CrossesAt 傳回或設定數值座標軸上與類別座標軸的交點。僅套用至數值座標軸。可讀寫的 Double。

    MajorUnit 會傳回或設定數值座標軸的主要刻度間距。可讀寫的 Double。

    MajorUnitIsAuto 如果由 Microsoft Excel 計算數值座標軸的主要刻度間距,則本屬性值為 True。可讀寫的 Boolean。

    MaximumScale 會傳回或設定數值座標軸的最大值。可讀寫的 Double。

    MaximumScaleIsAuto 如果由 Microsoft Excel 計算數值座標軸的最大值,則本屬性值為 True。可讀寫的 Boolean。

    MinimumScale 會傳回或設定數值座標軸的最小值。可讀寫的 Double。

    MinimumScaleIsAuto 如果由 Microsoft Excel 計算數值座標軸的最小值,則本屬性值為 True。可讀寫的 Boolean。

    MinorUnit 會傳回或設定座標軸的次要刻度間距。可讀寫的 Double。

    MinorUnitIsAuto 如果由 Microsoft Excel 計算數值座標軸的次要刻度間距,則本屬性值為 True。可讀寫的 Boolean。


    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    2009年12月4日 上午 01:59
  • [VB2005]create line chart in Excel

    參考此篇試試囉...
    2009年12月4日 上午 02:13
  • 線上手冊    這個要怎麼進去
    我點進去發現沒辦法用按鍵進到別的頁面
    沒辦法看到主選單


    excel chart 這功能 我看到的都是建一個新的 sheet    那請問可以載入已經建好的嗎  
    因為我發現它新增一個sheet   新增的位置都不一樣    好像跟你把excel關掉  它最後選擇那個頁面有關
    2009年12月9日 上午 09:40
  • IE 基於本機安全性的保護,會有很多連結被禁用。

    正確的用法請在 VBA IDE 環境下按 F1 啟用說明書,給 ms-help 的連結只是為了讓你快速找到目標。


    按下 F1 就會叫出有目錄清單的這個視窗:



    Automation 操作既有的物件跟新建意義是相同的,如果你的樣版已經設計好,你可以直接把資料寫到樣板檔,重新指定圖形的資料來源,再另存新檔即可。

    所需用到的指令,可透過錄製巨集後,瀏覽巨集內容取得,一般是剪貼後再改寫成 VBNET 語法。

    在 VBNET 操控時,避免使用 Select / ActiveXXXX 這類功能,原因你可搜尋既有討論。


    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    2009年12月9日 下午 01:09