В этой статье мы рассмотрим вопрос создания собственного шаблона заметок для приложения Samsung Notes. Данный шаблон предназначен для ведения списка проектов (дел или мероприятий) к каждому из которых есть страница для детализации, к которой можно перейти по нажатию пальцем на первую ячейку в строке и страница для каких-либо заметок. Все страницы связаны между собой, что обеспечивает быстрый доступ к любому проекту. Всего в данном стиле заметок 61 страница.
Формат файла стиля заметок - pdf. Для его формирования используется программа Microsoft Power Point и язык программирования VBA.
С помощью VBA осуществляется быстрое и эффективное:
- редактирование страниц и ее элементов;
- настройка гиперссылок между страницами.
Всего в документе более 100 гиперссылок. Конечно это все можно настроить и вручную, только в этом случае создание нового шаблона для Samsung Notes затребует гораздо больше времени, поэтому в статье рассмотрим как использовать для этого средства VBA.
ИТАК... Открываем power point и приступаем)))
- Размеры слайда. (без программирования)
Для своего телефона Samsung S22 эмпирическим путем я определил следующие размеры: высота слайда - 18,609 см и ширина - 9,728 см. Ориентация - книжная.
2. Создание первой страницы шаблона заметки. (без программирования)
На первой странице расположим таблицу, в которой будем вести перечень своих проектов (мероприятий или перечень чего угодно).
Для этого вставляем на наш слайд таблицу из двух столбцов и, для начала, нескольких строк. Форматируем таблицу и задаём размеры строк на свой вкус и удобство. Ну и ещё можно ориентироваться на количество проектов, с которыми вы планируете работать. Я для себя сделал таблицу на 30 строк. Затем добавляем на слайд иконку, по которой будем со всех слайдов переходить на этот перечень, добавляем к ней гиперссылку на первый слайд презентации и добавляем надпись, например "PROJECT LIST"
3. Для контроля проектов нам понадобится ещё два слайда: контрольный лист со статусами и лист заметок. Оформите его по образцу снимков в начале статьи. На этих двух слайдах нам понадобится две иконки: первую скопируйте с первого листа, вторую добавьте самостоятельно. А так как для этой иконки мы с помощью кода VBA будем задавать гиперссылки на всех слайдах, то иконке нужно будет задать имя, чтобы ссылаться на это имя на всех слайдах, например : "заметка"
4. Перед началом программирования у нас должно получится 3 слайда:
- перечень проектов;
- детальный список контроля проекта;
- слайд с заметками.
На первом слайде иконка с ссылкой на сам слайд, на втором и третьем по две иконки. Первая иконка - ссылка на первый слайд, вторая - ссылка с именем "заметка". Она в зависимости от того, на каком слайде размещена, будет ссылаться на лист заметок с листа детализации и на лист детализации с листа заметок.
5. Теперь в зависимости от количества строк проектов сделайте такое же количество копий второго и третьего слайдов. Для контроля - у вас должно получится в презентации количество слайдов соответствующее количеству строк в таблице проектов (без учёта шапки таблицы) умноженному на 2 и ещё один слайд с перечнем проектов. Т.е. при количестве рабочих строк = 20 у вас будет 41 слайд, =30, соответственно 61 слайд.
6. Приступаем непосредственно к программированию.
Порядок следующий :
- Переименовываем слайды с детализацией проектов, для удобства создания гиперссылка на них ;
- На первом слайде в первом столбце в каждой ячейке создаём прямоугольник, на который присоединяется гиперссылку на соответствующий лист детализации.
Код для переименовывания слайдов:
Sub Переименовать()
Dim pr As Presentation
Dim sl As Slide
Dim i As Integer, j As Integer
Set pr = ActivePresentation
j = 1
For i = 2 To pr.Slides.Count Step 2
With pr.Slides(i)
.Name = "проект_" & j
End With
j = j + 1
Next i
End Sub
Скопируйте этот код в редактор VBA и запустите этот код. Если он завершится без ошибок, значит нужные имена присвоены.
Следующий шаг - создание гиперссылок на первом слайде.
Скопируйте и вставьте следующий код в редактор VBA
Sub ссылки()
Dim pr As Presentation
Dim sl As Slide
Dim sel As ShapeRange
Dim sh As Shape
Dim i As Integer
Set pr = ActivePresentation
Set sl = ActiveWindow.View.Slide
Set sel = ActiveWindow.Selection.ShapeRange
For i = 2 To sel.Table.Rows.Count
With sel.Table.Rows(i).Cells(1).Shape
Set sh = sl.Shapes.AddShape(msoShapeRectangle, .Left, .Top, .Width, .Height)
With sh
.Name = "проект_" & i - 1
.ActionSettings(ppMouseClick).Hyperlink.SubAddress = pr.Slides("проект_" & i - 1).SlideIndex
.Fill.Transparency = 1
.Line.Visible = msoFalse
End With
End With
Next i
End Sub
Перед тем как запустить код вернитесь к слайд у с перечнем проектов и выделите саму таблицу, в которой планируете вести перечень и запустите код на выполнение.
В результате вы получите презентацию с готовыми гиперссылками между слайдами. Сохраните её в формате pdf и скопируйте на телефон. Запустите в приложении для работы с файлами pdf (я использую Samsung Notes) и наслаждайтесь своим новым шаблоном.
Если статья понравилась, ставьте лайки подписывайтесь на канал.
