how I change this macro code

daniboymu

Board Regular
Joined
Nov 1, 2020
Messages
55
Office Version
  1. 2019
Platform
  1. Windows
I want to change this macro code to a especifically chart,could someone please help me out.
This macro changes all the charts on the spreadsheet but I want to change to only one especifically chart on the spreadsheet
(Chart 5)


VBA Code:
Sub rescale()
For Each cht In ActiveSheet.ChartObjects
With cht.Chart
.Axes(xlValue).MaximumScale = ActiveSheet.Range("AF11").Value
 .Axes(xlValue).MinimumScale = ActiveSheet.Range("AF10").Value
 .Axes(xlValue).MajorUnit = ActiveSheet.Range("AF6").Value
   End With
Next cht
End Sub
 

Excel Facts

What is the fastest way to copy a formula?
If A2:A50000 contain data. Enter a formula in B2. Select B2. Double-click the Fill Handle and Excel will shoot the formula down to B50000.

MARK858

MrExcel MVP
Joined
Nov 12, 2010
Messages
14,233
Office Version
  1. 365
  2. 2010
Platform
  1. Windows
  2. Mobile
Maybe...
VBA Code:
Sub rescale()

    With ActiveSheet.ChartObjects("Chart 5").Chart
        .Axes(xlValue).MaximumScale = ActiveSheet.Range("AF11").Value
        .Axes(xlValue).MinimumScale = ActiveSheet.Range("AF10").Value
        .Axes(xlValue).MajorUnit = ActiveSheet.Range("AF6").Value
    End With

End Sub
 
Solution

daniboymu

Board Regular
Joined
Nov 1, 2020
Messages
55
Office Version
  1. 2019
Platform
  1. Windows
Maybe...
VBA Code:
Sub rescale()

    With ActiveSheet.ChartObjects("Chart 5").Chart
        .Axes(xlValue).MaximumScale = ActiveSheet.Range("AF11").Value
        .Axes(xlValue).MinimumScale = ActiveSheet.Range("AF10").Value
        .Axes(xlValue).MajorUnit = ActiveSheet.Range("AF6").Value
    End With

End Sub
thank you!!!
 

Forum statistics

Threads
1,144,660
Messages
5,725,640
Members
422,634
Latest member
YenOlmedo

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top