Следуйте инструкциям в видео ниже, чтобы узнать, как установить наш сайт как веб-приложение на главный экран вашего устройства.
Примечание: Эта функция может быть недоступна в некоторых браузерах.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Можно при создании именовать объекты
ActiveLayer.CreateArtisticText( 0, 0, "100").Name="Numb"
И поиск проводить уже только среди именованных
For Each t In ActivePage.Shapes.FindShapes("Numb")
Sub plus1()
On Error Resume Next
max = -100
For Each t In ActivePage.Shapes.FindShapes(, cdrTextShape)
d = CInt(t.Text.Story)
If d > max Then max = d
Next t
ActiveLayer.CreateArtisticText 0, 0, CStr(max + 1)
End Sub
Про завершение уже написали, теперь чуть ускоримся.
1. Даблкликаем текст на рисунке - инструмент выделения автоматом переходит в текстовый режим.
1. Как вариант, вместо "Щелкаю по кнопке "Текст" на панели инструментов." - пользуемся клавиатурным сокращением F8, и в этом режиме кликаем текст...
Симметрия на головах скомпенсирована ассиметричным солнышком. А петли и хвосты уже как-то не очень. Но можно сказать, что тени - не тени, а рисунок на шкуре и почему бы ему не отзеркалится. Картинка вполне качественная, можно и не придираться. В общем сойдёт.
Подобную задачу решают верстальщики телепрограмм со вставкой лого канала. Стоит посмотреть в интернетах, что они в этом плане наавтоматизировали и поправить на буквицу вместо шапки.
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.