回覆列表
  • 1 # 使用者8606064490217

    透過圖示設定來實現估計不行,因為設定每個點的標籤時,每個點的標籤自動採用X,Y的座標值。估計只能用VBA來程式設計來給每個節點標籤賦值,你通過錄制宏,然後檢視程式碼,自己編個程式來實現。 我舉個列子,比如有個點座標是(3,4,7),二維散點圖顯示的座標是,3,4,你要把它改成(3,4,7)

    TextFrame1.TextRange.Characters.Text

    = "3, 4,7" TextFrame1就是座標標籤的控制元件名,很有規律的,應該是TextFrame1,TextFrame2,TextFrame4...,你有多少個座標點就有多少個TextFrame。你要做的是就是做個迴圈,直接給TextFrame1的

    TextRange.Characters.Text

    直接賦值。 給你我VBA參考程式碼: ActiveSheet.ChartObjects("圖表 1")

    .Select

    "這個程式碼選中圖示名為圖示1的圖示 ActiveChart.SeriesCollection(1)

    .Points.Count

    "獲得有多少個座標點 ActiveChart.SeriesCollection(1).Points(1)

    .DataLabel.Text

    = "1,2,3" "把圖示中的第一個系列的節點1的標籤改為"1,2,3" 修改整個圖示座標名的程式碼(前提是已經選中需要處理的圖表了): for i=1 to ActiveChart.SeriesCollection(1)

    .Points.Count

    ActiveChart.SeriesCollection(1).Points(1)

    .DataLabel.Text

    = Cells(i, 1) & "," & Cells(i, 2) & "," & Cells(i, 3) next i 這樣就解決了,實在不行的話,你把表格傳給我,我幫你做。

  • 中秋節和大豐收的關聯?
  • 黑色網面鞋上的白色汙漬怎麼洗?