Создать макрос для Corel Draw (по кнопке, изменение размеров изображения, обрезка и вставка доп элементов)
Задание закрыто
Статус рабочей области:
Закрыта по истечению срока выполнения работ
Стоимость:
7 000 рублей
Срок выполнения:
10 дней
Варианты оплаты:
По договоренности
Дата публикации:
2024-09-20 16:36
Был(а) на сайте:
2024-10-29 15:30
Реклама
Создать макрос для Corel Draw (по кнопке, изменение размеров изображения, обрезка и вставка доп элементов)
Задача
Нужен макрос, который сможет одной кнопкой произвести масштабирование, перемещение, обрезку выделенного объекта (фотографии), и добавить несколько объектов - прямоугольников, кружочков и тп, строго в определенных местах. Сделать скриншот области в буфер обмена (если все, кроме скрина сможете сделать, напишите при отклике на задание).
далее другой кнопкой (рядом нужно поле для вставки номера) макрос должен сгенерировать штрихкод, считав который сканером штрихкродов можно будет получить ранее вставленный номер.
Это для типографии, чтобы подготовливать к печати фотографии.
к заданию приложены картинки с номерами, пример как процесс должен примерно происходить:
1. Вставлено изображение, любого размера
2. Человек нажимает кнопку "Подогнать", картинка масштабируется, чтобы был заполнен красный прямоугольник (на 4м шаге появится который)
3. Добавляется зеленый прямоугольник определенного размера, выравнивание по центру
4. Добавляется красный прямоугольник, другого опредленного размера выравнива...
Видеть полную информацию и оставлять заявки могут только авторизованные пользователи.
Sub PrepareImageAndGenerateBarcode()
Dim ws As Worksheet
Set ws = ActiveSheet
' Шаг 1: Масштабирование изображения
With ws.Shapes("Picture 1")
.LockAspectRatio = msoTrue
.Height = 400 ' высота изображения
.Width = 600 ' ширина изображения
.Top = 100
.Left = 100
End With
' Шаг 2: Добавление зеленого прямоугольника
Dim greenRect As Shape
Set greenRect = ws.Shapes.AddShape(msoShapeRectangle, 150, 150, 500, 350)
greenRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
greenRect.Line.ForeColor.RGB = RGB(0, 255, 0)
' Шаг 3: Добавление красного прямоугольника
Dim redRect As Shape
Set redRect = ws.Shapes.AddShape(msoShapeRectangle, 100, 100, 600, 400)
redRect.Fill.ForeColor.RGB = RGB(255, 0, 0)
redRect.Line.ForeColor.RGB = RGB(255, 0, 0)
' Шаг 4: Обрезка изображения (по зеленому прямоугольнику)
With ws.Shapes("Picture 1").PictureFormat
.CropLeft = greenRect.Left
.CropTop = greenRect.Top
.CropRight = ws.Shapes("Picture 1").Width - greenRect.Width
.CropBottom = ws.Shapes("Picture 1").Height - greenRect.Height
End With
' Шаг 5: Ввод номера и генерация штрих-кода
Dim barcodeValue As String
barcodeValue = InputBox("Введите номер для штрих-кода")
' Генерация штрих-кода
ws.Cells(20, 10).Value = "*" & barcodeValue & "*"
ws.Cells(20, 10).Font.Name = "Free 3 of 9" ' Убедитесь, что шрифт установлен
ws.Cells(20, 10).Font.Size = 48
' Удаляем зеленый прямоугольник
greenRect.Delete
End Sub
Создать макрос для Corel Draw (по кнопке, изменение размеров изображения, обрезка и вставка доп элементов)
Реклама
Создать макрос для Corel Draw (по кнопке, изменение размеров изображения, обрезка и вставка доп элементов)
Нужен макрос, который сможет одной кнопкой произвести масштабирование, перемещение, обрезку выделенного объекта (фотографии), и добавить несколько объектов - прямоугольников, кружочков и тп, строго в определенных местах. Сделать скриншот области в буфер обмена (если все, кроме скрина сможете сделать, напишите при отклике на задание).
далее другой кнопкой (рядом нужно поле для вставки номера) макрос должен сгенерировать штрихкод, считав который сканером штрихкродов можно будет получить ранее вставленный номер.
Это для типографии, чтобы подготовливать к печати фотографии.
к заданию приложены картинки с номерами, пример как процесс должен примерно происходить:
1. Вставлено изображение, любого размера
2. Человек нажимает кнопку "Подогнать", картинка масштабируется, чтобы был заполнен красный прямоугольник (на 4м шаге появится который)
3. Добавляется зеленый прямоугольник определенного размера, выравнивание по центру
4. Добавляется красный прямоугольник, другого опредленного размера выравнива...
Другие открытые задания:
Сверстать имеющийся дизайн26 000 р.
Бюджет: 26 000 р. Есть дизайн в фигме, ищу хорошую верстальщицу/верстальщика.
ФР2.Сверстать по макету с использованием React и компонентного подхода3 500 р.
Бюджет: 3 500 р. Ваша задача: Сверстать по макету с использованием React и компонентного подхода: Создать новый проект с помощью инструмента, такого как Vite, для быстрого старта …
Расшифровка аудио (набор текста с аудио, видео) - стенограммы (требуется) 1 200 р.
Бюджет: 1 200 р. На выходные - 21 - 22 декабря (и частично на 23 декабря, понедельник) есть работа по расшифровке записей. Запросы разные - дословные, с обычным т.кодом, с частым т.…
поиск заданий