Добрый день!

Ситуация: необходимо при нажатии на "Сохранить как" в появившемся диалоге сохранения заменить дефолтный тип файла на *.XLS. Если ли возможность произвести такую замену макросом?

Т.е. по логике мне нужно изменить FileFormat как в примере ниже, но SaveAs вызывать не из макроса, а обрабатывать "Сохранить как", который нажимает пользователь.

Добрый день, форумчане!
Проблема следующая: при изменении масштаба в винде со 100% на какое-либо другое, координаты считаются неверно(по всей видимости есть какая-то формула для перерасчета).
Покажу на коротеньком примере:

a = ActiveSheet.Cells(currentRow + qntCurrency - 1, 1).Top
b = ActiveSheet.Cells(currentRow + qntCurrency - 1, 1).Height
с = Application.CentimetersToPoints(paperHeight) _
 - ActiveSheet.PageSetup.BottomMargin _
 - ActiveSheet.PageSetup.Top

Для 100 %:

• a = 281.25
  
• b = 28.5
  
• c = 566.9291
  

Для 125%:

• a = 284.4
  
• b = 28.2
  
• c = 566.9291
  

Как видите при использовании команды TOP или HEIGHT мы получаем разные значение, причем для команды TOP значение a при 100% меньше чем при 125%, а для команды HEIGHT наоборот: значение b при 100% больше чем при 125%. При всем при этом координата с рассчитывается одинаково при любом масштабе. Собственно в этом и проблема. Здесь либо TOP и HEIGHT надо на что-то домножать, либо изменять формулу для расчета с или тоже на что-то домножать.
Не подскажите как согласовать эти расчеты. Может быть есть какая либо пропорция? Я не смогла подобрать такого коэффициента. Заранее большое спасибо