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

时间:2016-06-25 09:43:23

标签: excel vba excel-vba

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

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

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

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

  2. 为什么会这样?

    private DownloadSong()
    {
    }
    

1 个答案:

答案 0 :(得分:2)

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