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

在特定位置插入图表对象

1 个答案: