title: Adjust the Y axis (value and title and subtitle) as well as make the graph bigger (subtitles, y, x values are taking too much space from the graph)
body: <p>I would like to move the Y axis value, title and subtitle to the left side of the graph and make y  axis (value) and x axis (time), title and subtitle smaller to make the graph bigger. How can I do it?</p>
  <p>the graph above:</p>
  <p><a href="https://i.stack.imgur.com/8gJBO.png" rel="nofollow noreferrer">Graph</a></p>
  <p>The code:</p>
  <pre><code>Private Sub worksheet_change(ByVal target As Range)
  
      Dim cht As Chart, co As Object
      Dim i As Long
      Dim LastRow As Long, rngX As Range, rngY As Range
      Dim LastColumn As Long, wsMain As Worksheet, wsData As Worksheet
  
      Set wsData = ThisWorkbook.Worksheets(&quot;Data&quot;)
      Set wsMain = ThisWorkbook.Worksheets(&quot;Main&quot;)
  
  If target = wsMain.Cells(3, 3) Then
  
      For i = 2 To 500 Step 15 'loop in increments of 15
  
          If wsData.Cells(2, i) = wsMain.Cells(3, 3) Then
              'define data ranges
              Set rngX = wsData.Range(wsData.Cells(6, i), wsData.Cells(Rows.Count, i).End(xlUp))
              Set rngY = rngX.Offset(0, 1)
  
              ClearWorksheetCharts wsMain 'remove any existing chart(s)
              With wsMain.Range(&quot;B22:H37&quot;)
                  'add chartobject, setting position and size
                  Set co = .Worksheet.Shapes.AddChart(xlLine, .Left, .Top, _
                                                       .Width, .Height)
  
              End With
  
              Set cht = co.Chart
              ClearChartSeries cht 'remove any &quot;auto-added&quot; series (if data was selected when chart was added)
  
              AddSeries cht, &quot;25%&quot;, rngX, rngY
              AddSeries cht, &quot;50%&quot;, rngX, rngY.Offset(0, 5)
              AddSeries cht, &quot;25%&quot;, rngX, rngY.Offset(0, 10)
  
              cht.Axes(xlCategory).ReversePlotOrder = True
              cht.HasTitle = True
              cht.ChartTitle.Text = &quot;1 month&quot;
              
              'X axis name
              cht.Axes(xlCategory, xlPrimary).HasTitle = True
              cht.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = &quot;Time&quot;
              'y-axis name
              cht.Axes(xlValue, xlPrimary).HasTitle = True
              cht.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = &quot;Value&quot;
              
  
           End If
      Next i
  End If
  End Sub
  </code></pre>
  <p>I tried to add use these two ways to move the y axis title but it didn't work.</p>
  <pre><code>cht.Axes(xlValue, xlPrimary).AxisTitle.Left
  </code></pre>
  <pre><code>ActiveChart.SetElement (msoElementLegendLeft)
  </code></pre>
  <p>What am I doing wrong?</p>
  <p>Thank you!!</p>
  <p>Attachment: the data sheet</p>
  <p><a href="https://i.stack.imgur.com/stGXj.png" rel="nofollow noreferrer">data sheet</a></p>