Question

我有一个代码循环更改图表的值并在添加值后导出该图表。但是，某些值会影响图表的格式，因为这些值超出了水平（值）轴的范围，当前设置为min：-15和max：15。我希望创建一个IFThen部分，其中if图表的其中一个值是＆gt; 15 AND＆lt; -15然后将边界更改为min：-20和max：20。然后，如果图表的值为＆gt; 20 AND＆lt; -20然后将边界更改为min：-30和max：30。我有下面的图表。图表实际上是两个图表，所以我有一个水平（值）轴和一个辅助水平（值）轴。这两个都需要使用IfThen语句进行更改。

ChartImage

这是我的代码：

Range("D3").Select   
    ActiveCell.Range("B1:J1").Select

Dim myPDF As String
Dim i As Long

    For counter = 3 To 102    
        Sheets("Data").Select
        Range("'Data'!$D$" & counter & ":$L$" & counter).Select
        Selection.Copy
        Sheets("Pyramid-Chart").Select
        Range("C3:C11").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        Sheets("Data").Select
        Range("'Data'!$N$" & counter & ":$V$" & counter).Select
        Selection.Copy
        Sheets("Pyramid-Chart").Select
        Range("D3:D11").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True

        ActiveSheet.ChartObjects("Chart 2").Activate
        ActiveChart.ChartArea.Select
        myPDF = "\\stchsfs\arboari$\Profile-Data\Desktop\Export Trial1\c1-" & Sheets("Data").Range("B" & i + 3).Value2 & ".pdf"    
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myPDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    i = i + 1
     Next counter

End Sub

谢谢！

根据动态单元格值更改轴比例

0 个答案: