Getting the error in below macro

[Manan]

Error :- Object does not support this property or method

What I am doing is just to increase the width of a chart via Macro instead of manually.

Sub Macro5()
'
' Macro5 Macro
'

'
  Dim myCH As Object
  Set myCH = ActiveChart.ChartArea
  myCH.Chart.Shapes.ScaleWidth 1.7459831936, msoFalse, _
  msoScaleFromBottomRight
End Sub

 

[Somendra Misra]

Hi,

Try below code:

Sub Macro5()

Dim myCH As Chart
  Set myCH = ActiveChart
  myCH.ChartArea.Width = 100 'put width here
End Sub

Select the chart before running the code.

Regards,

 

[NARAYANK991]

Hi ,

Try this :

Sub Macro5()
'
' Macro5 Macro
'
    Dim myCH_Name As String
   
    myCH_Name = ActiveChart.Parent.Name
    ActiveSheet.Shapes(myCH_Name).ScaleWidth 1.7, msoFalse, msoScaleFromBottomRight
End Sub

A simpler way is this :

Sub Macro5()
'
' Macro5 Macro
'
    Dim myCH As Object
   
    Set myCH = ActiveChart.ChartArea
    myCH.Width = myCH.Width * 1.1
End Sub

Narayan