Инструкция из нескольких листов в Userform

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Инструкция из нескольких листов в Userform (Макросы/Sub)

Leprotto

Дата: Понедельник, 05.12.2016, 10:42 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 145

Репутация: 2 ±

Замечаний: 0% ±

Excel 2016

Доброе утро!
Мучаюсь, не могу прикрутить к файлу инструкцию для пользователей.
Инструкция в файле ворд из 7 листов.
Как вариант пытался приложить картинки листов, но у пользователей мониторы разных размеров и как поведет себя такая форма не знаю.
Помогите ломоботу, пожалуйста!

К сообщению приложен файл: instrykciya.xlsm (18.1 Kb)

Ответить

nilem

Дата: Понедельник, 05.12.2016, 11:00 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

Leprotto, привет
может все-таки лучше картинок наделать? иначе придется каждый раз открывать вордовский файл

Яндекс.Деньги 4100159601573

Ответить

Leprotto

Дата: Понедельник, 05.12.2016, 11:02 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 145

Репутация: 2 ±

Замечаний: 0% ±

Excel 2016

nilem,

Цитата

может все-таки лучше картинок наделать? иначе придется каждый раз открывать вордовский файл

Я тоже так думаю. Вопрос можно ли разворачивать юзерформ на полное окно и автоматизировать масштаб картинок?

Ответить

SLAVICK

Дата: Понедельник, 05.12.2016, 11:19 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

ЦитатаLeprotto, 05.12.2016 в 11:02, в сообщении № 3 ()

можно ли разворачивать юзерформ на полное окно и автоматизировать масштаб картинок?

лучше изменять положение картинки на вкладке - тогда 100% будет видно одинаково на всех компах. А если масштабировать - на маленьких мониторах ничего не будет видно.
сделал две вкладки код для изменения положения картинок:
[vba]

Код

Private Sub MultiPage1_Scroll(ByVal Index As Long, ByVal ActionX As MSForms.fmScrollAction, _
ByVal ActionY As MSForms.fmScrollAction, ByVal RequestDx As Single, ByVal RequestDy As Single, _
ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle)
Me.MultiPage1.Pages(Index).Controls(0).Left = Me.MultiPage1.Pages(Index).Controls(0).Left - RequestDx
Me.MultiPage1.Pages(Index).Controls(0).Top = Me.MultiPage1.Pages(Index).Controls(0).Top - RequestDy
End Sub

[/vba]