Excel Camera Tool - изменение размера изображения до 100% шкалы

Question

Я пытаюсь использовать изображение для отображения различных таблиц данных с помощью инструмента камеры.

В тесте ниже код работает,

1. я изменить формулу формы для нового диапазона, а затем я обновить шкалу формы, как он не обновляется автоматически, когда данные на другой лист

   2.Это работает только в том случае, если я дважды нажимаю кнопку. 1-й щелчок меняет источник, но я должен щелкнуть его второй раз, чтобы получить масштаб для сброса до 100%

Любые идеи, почему это так?

Private Sub CommandButton1_Click() 

Shapes("Display").DrawingObject.Formula = "=Pivots!AS2:BB10" 
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" 
Shapes("Display").DrawingObject.ShapeRange.ScaleWidth 1, msoTrue 
Shapes("Display").DrawingObject.ShapeRange.ScaleHeight 1, msoTrue 

End Sub 

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