Вставить объект диаграммы в определенное место

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 

Но эта карта вставляется в середине первенствовать worksheet.I хотите, чтобы вставить его на правый верхний угол sheet.How я это делаю?

Answer 1

Вы можете легко расположить его сверху, но право произвольно, потому что кто-то может изменить размер окна или прокрутки. По этой причине позиция по умолчанию по умолчанию из верхнего левого угла. Вы можете получить ширину экрана и сделать небольшую математику, но я сомневаюсь, что это то, что вы действительно хотите. Есть ли заданное расстояние от левого края или определенного столбца, которое вы можете расположить по горизонтали?

Вот как расположить сверху:

ActiveSheet.Shapes.AddChart.Select 

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