2016年9月29日 星期四

Excel Chart with VBA

Reference: 

用 VBA 為新增圖表
    Sheet1.Select
    ActiveSheet.Shapes.AddChart.Select    '新增圖表
    ActiveChart.ChartType = xlLine            '折線圖
    With ActiveChart.Parent
        .Name = "3260.TW"                           '命名
        .Height = Range("A2:F12").Height    '高
        .Width = Range("A2:F12").Width      '寬
        .Top = Range("A2").Top                     '位置
        .Left = Range("A2").Left                    '位置
    End With

也可以用pixel數
     With ActiveChart.Parent
         .Height = 325 ' resize
         .Width = 500  ' resize
         .Top = 100    ' reposition
         .Left = 100   ' reposition
     End With

沒有留言:

張貼留言