VBA Excel _2_Autocad ZoomScaled

[Kefirrr]

Можете подсказать, как в excel правильно описать функцию зуммирования элеентов внутри области листа.

В автокаде код проходит на ура, но мне нужно адаптировать под excel. и здесь просто тупик. уже больше суток с этим воюю и никак не могу найти решение (может жуткий недосып сказывается)

Dim scalefactor As Double
Dim scaletype As Integer
scalefactor = 2
scaletype = AcadDoc.acZoomScaledRelative
ZoomScaled scalefactor, scaletype

Ругается на последнюю строку.
Заранее всем спасибо

[doober]

Сообщение от Kefirrr

(может жуткий недосып сказывается)

Скорее всего

Set ACADApp = CreateObject("AutoCAD.Application")
ACADApp.ZoomScaled ScaleFactor, 1