excel - 在特定位置插入图表对象

Question

我在excel中编写了一个宏来插入图表。选择特定范围的单元格时运行宏。这是：

Sub drawchart2()
'
' drawchart2 Macro
'

'
  Range("B24:C36").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Range("'Sheet'!$B$24:$C$36" _
        )
    ActiveSheet.Shapes("Chart 6").IncrementLeft 256.1797637795
    ActiveSheet.Shapes("Chart 6").IncrementTop -84.2696062992
    ActiveSheet.Shapes("Chart 6").IncrementLeft 54.7752755906
    ActiveSheet.Shapes("Chart 6").IncrementTop -19.3820472441
End Sub

但是这个图表被插入到excel工作表的中间。我想把它插入到工作表的右上角。我该怎么做？

Answer 1

您可以轻松地将其定位到顶部，但右侧是任意的，因为有人可以调整窗口大小或滚动。由于这个原因，Excel 默认位置从左上角开始。你可以得到屏幕的宽度并做一些数学运算，但我怀疑那是你真正想要的。与左侧边缘或特定列的距离是否可以水平定位？

以下是从顶部定位的方法：

 ActiveSheet.Shapes.AddChart.Select

 With ActiveChart
    .ChartType = xlLineMarkers
    .SetSourceData Source:=Range("Sheet1!$B$24:$C$36")
    .Parent.Top = 0
    .Parent.Left = 100
 End With