Macro for setup

Is there a way to modify the horizontal scale in Drawing Setup through a VBA
macro? I have tried the SetCustomScale method, but this doesn't seem to
work.
macro? I have tried the SetCustomScale method, but this doesn't seem to
work.