时间戳

首页 > 解决方案 > 从右到左调整图表大小

excel - 从右到左调整图表大小

问题描述

我需要帮助调整 Excel 图表的大小以向右扩展而不是标准向左扩展。

我在每个图表中输入下面的 vba 代码来调整大小，它工作正常，除了工作簿右侧的图表，它从屏幕上展开，我不想向右滚动。

如何修改代码以使其向左扩展而不是 rt？

谢谢！

Sub Chart140_Click()
With ActiveSheet.ChartObjects(Application.Caller)
    If .Height = (ThisWorkbook.Sheets("configuration").Range("chrtrngzoominh")) Then
        .Height = Format(ThisWorkbook.Sheets("configuration").Range("chrtrngzoomouth"))
        .Width = Format(ThisWorkbook.Sheets("configuration").Range("chrtrngzoomoutw"))
    Else
        .Height = Format(ThisWorkbook.Sheets("configuration").Range("chrtrngzoominh"))
        .Width = Format(ThisWorkbook.Sheets("configuration").Range("chrtrngzoominw"))
    End If
End With
End Sub

标签： excelvbaexcel-charts

解决方案

Excel 图表位于左上角。如果要更改图表的大小并锚定右侧，则需要使用以下解决方法：

  • 将左上角的初始图表位置保存到变量中
  • 将初始图表宽度保存到变量中
  • 增加图表宽度
  • 计算初始宽度和新宽度之间的宽度差
  • 通过宽度差调整左上角位置

推荐阅读