Question

我正在尝试使用相机工具使用图像显示不同的数据表。

作为测试，以下代码有效，

我将形状公式更改为新范围，然后更新形状比例，因为当数据在不同的工作表上时它不会自动更新

2.这只有在我点击按钮两次才有效。第一次单击更改源，但我必须再次单击它以使比例重置为100％

为什么会这样？

private DownloadSong()
{
}

Answer 1

DoEvents就像一个神奇的咒语，我尝试这样的事情发生时。它通常没有帮助，但这一次确实没有！

Private Sub CommandButton1_Click()

Shapes("Display").DrawingObject.Formula = "=Pivots!AS2:BB10"
DoEvents
Shapes("Display").DrawingObject.ShapeRange.ScaleWidth 1, msoTrue
Shapes("Display").DrawingObject.ShapeRange.ScaleHeight 1, msoTrue
End Sub

Private Sub CommandButton2_Click()

Shapes("Display").DrawingObject.Formula = "=Pivots!AS13:BA27"
DoEvents
Shapes("Display").DrawingObject.ShapeRange.ScaleWidth 1, msoTrue
Shapes("Display").DrawingObject.ShapeRange.ScaleHeight 1, msoTrue
End Sub

Excel相机工具 - 将图像大小调整为100％

1 个答案: