如何将图表最小比例设置为特定值

Question

如何将最小比例设置为特定单元格值，其中单元格中的值不是常数。 ie：如果最小刻度必须设置为45，并且如果值45不总是出现在单元格D14中？

.Axes(xlCategory, xlPrimary).MinimumScale = 45 ' Constant value

Answer 1

要设置最小刻度为最低值的范围内，可以使用MIN功能。现在，由于范围不在具有图表的工作簿中，而是在打开的csv文件中，因此您必须完全限定范围

为此，请声明一个范围对象，然后将其设置为相关范围

Dim Rng As Range 

' 
'~~> Rest of your code 
' 
Set wsTemp = wbTemp.Sheets(1) 
Set Rng = wsTemp.Range("D3:D30") 

' 
'~~> Rest of your code 
' 
.Axes(xlCategory, xlPrimary).MinimumScale = Application.WorksheetFunction.Min(Rng) 

HTH