如何在vb中设置excel.Chart的位置和大小？在线等

Question

很多属性都是readonly的

Answer 1

dim books as workbook,xs as worksheet
    ... '生成各种所需要Excel对象    books.charts.Add
    With books.Charts(1)
     .ChartType = xlLineMarkers
     .SetSourceData Source:=xs.Range("M13:W13,M15:W16"), _
        PlotBy:=xlRows       
    end with
     xs.Select
     books.Charts(1).Location Where:=xlLocationAsObject, Name:="h"             
     books.Sheets(1).ChartObjects(1).width = 445.5
     books.Sheets(1).ChartObjects(1).height = 117
     books.Sheets(1).ChartObjects(1).Cut
     xs.Select
     xs.Range("M17").Select
     xs.Paste Destination:=xs.Range("M17")
     With xs.ChartObjects(1)
        .left = xs.Range("M17").left
        .top = xs.Range("M17").top
     End With