Excel x軸をプロットされた範囲の最小値と最大値に設定するVBAコード

Question

X軸の最小値と最大値を指定されたセル（B4とB15）に設定するVBAコード（以下）があります。しかし、ワークブックにはたくさんのプロットがあり、すべて最小と最大x軸の範囲が必要です。私はプロットされたx軸の範囲に移動し、その範囲内の最小値と最大値を見つけて、それらの値に軸を設定するVBAコードが必要です。これを行うには、以下のコードをどのように変更できますか？ありがとうございました。

Sub Resize_Fonts() 
Dim Sht As Worksheet 
Dim Cht As ChartObject 

For Each Sht In ActiveWorkbook.Sheets 
    For Each Cht In Sht.ChartObjects 
     Cht.Chart.ChartArea.Font.Size = 9 
     Cht.Chart.ChartArea.Font.Name = "Cambria" 
     Cht.Chart.ChartArea.Border.LineStyle = xlNone 
     Cht.Chart.Axes(xlValue).MinimumScale = 0 
     Cht.Chart.Axes(xlCategory).MinimumScale = Range("B4").Value 
     Cht.Chart.Axes(xlCategory).MaximumScale = Range("B15").Value 


    Next Cht 
Next Sht 

End Sub 

Answer 1

dim count as longを追加して、隣接する列に最小/最大値を設定できます。その後、For eachループのcountを増やし、Cells([row], [n+] count).valueを使用してセル値を取得します。 、あなたが使用することができところで ：

With cht.Chart 
    [...] 
End with 

Answer 2

はこのためにWorksheetFunction.Minを使用してみてください。

Cht.Chart.Axes(xlCategory).MinimumScale = WorksheetFunction.Min(Columns(2)) 
    Cht.Chart.Axes(xlCategory).MaximumScale = WorksheetFunction.Max(Columns(2)) 

これは、最小値と最大値は、使用することができますShtに範囲B14:B15内常にある場合、x軸の値は、列に2

Answer 3

ある前提としています使用してみてください

Cht.Chart.Axes(xlCategory).MinimumScale = worksheetfunction.Min(Sht.Range("B4:B15")) 
Cht.Chart.Axes(xlCategory).MaximumScale = worksheetfunction.Max(Sht.Range("B4:B15")) 

Answer 4

With Cht.Chartステートメントを使用すると、コーディングスタイルが短縮され、クリアされます。

列Bで Minと Max値を探して、あなたは完全に Sht.Rangeを追加することにより、 Rangeを修飾を確認する必要があります。

コード

Sub Resize_Fonts() 

Dim Sht As Worksheet 
Dim Cht As ChartObject 

For Each Sht In ActiveWorkbook.Sheets 
    For Each Cht In Sht.ChartObjects 
     With Cht.Chart 
      .ChartArea.Font.SIZE = 9 
      .ChartArea.Font.Name = "Cambria" 
      .cartArea.Border.LineStyle = xlNone 
      .Axes(xlValue).MinimumScale = 0 
      .Axes(xlCategory).MinimumScale = WorksheetFunction.Min(Sht.Range("B1:B" & Sht.Cells(Sht.Rows.Count, "B").End(xlUp).Row)) 
      .Axes(xlCategory).MaximumScale = WorksheetFunction.Max(Sht.Range("B1:B" & Sht.Cells(Sht.Rows.Count, "B").End(xlUp).Row)) 
     End With 
    Next Cht 
Next Sht 

End Sub 

Answer 5

私が最初に私の他の未登録のアカウントで言ったように、あなたのコメントを読んだ後、あなたがこの方法を使用することができます。

Sub Resize_Fonts() 
Dim Sht As Worksheet 
Dim Cht As ChartObject 
Dim count as Long 

count = 2 ' For column B 
For Each Sht In ActiveWorkbook.Sheets 
    For Each Cht In Sht.ChartObjects 
     With Cht.Chart 
      .ChartArea.Font.Size = 9 
      .ChartArea.Font.Name = "Cambria" 
      .ChartArea.Border.LineStyle = xlNone 
      .Axes(xlValue).MinimumScale = 0 
      .Axes(xlCategory).MinimumScale = Sht.Cells(4, count).Value 
      .Axes(xlCategory).MaximumScale = Sht.Cells(15, count).Value 
     End with 
     count = count + n ' with n your "pattern" 
    Next Cht 
    count = 2 ' reset the count when changing sheet 
Next Sht 

End Sub 

は、この値は常に4行していると仮定し、行15.

他のクエリがある場合のコメント