Создать макрос для Corel Draw (по кнопке, изменение размеров изображения, обрезка и вставка доп элементов)

Задание закрыто
Статус рабочей области:Закрыта по истечению срока выполнения работ
Стоимость:7 000 рублей
Срок выполнения:10 дней
Варианты оплаты:По договоренности
Дата публикации:2024-09-20 16:36
Был(а) на сайте:2024-10-29 15:30

Создать макрос для Corel Draw (по кнопке, изменение размеров изображения, обрезка и вставка доп элементов)

 
Задача

Нужен макрос, который сможет одной кнопкой произвести масштабирование, перемещение, обрезку выделенного объекта (фотографии), и добавить несколько объектов - прямоугольников, кружочков и тп, строго в определенных местах. Сделать скриншот области в буфер обмена (если все, кроме скрина сможете сделать, напишите при отклике на задание).
далее другой кнопкой (рядом нужно поле для вставки номера) макрос должен сгенерировать штрихкод, считав который сканером штрихкродов можно будет получить ранее вставленный номер.

Это для типографии, чтобы подготовливать к печати фотографии.

к заданию приложены картинки с номерами, пример как процесс должен примерно происходить:
1. Вставлено изображение, любого размера
2. Человек нажимает кнопку "Подогнать", картинка масштабируется, чтобы был заполнен красный прямоугольник (на 4м шаге появится который)
3. Добавляется зеленый прямоугольник определенного размера, выравнивание по центру
4. Добавляется красный прямоугольник, другого опредленного размера выравнива...

Видеть полную информацию и оставлять заявки могут только авторизованные пользователи.
Исполнитель по этому заданию выбран.
Сергей Стаднийчук
Специализация: Программирование и IT
  • 10 000 руб10 дней
Большой опыт разработки подобных маркосов.
Точный срок и стоимость смогу назвать после обсуждения всех деталей.
Stanislav Ricci
Специализация: Программирование и IT
  • 8 500 руб10 дней
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
Alexandr Alexandrov
Специализация: Веб-разработка
  • 7 000 руб10 дней
Здравствуйте! Готов реализовать макрос для Corel Draw с функцией обрезки, добавления элементов и генерации штрихкода. TG: Alexuys.
Дарья Котова
Специализация: Веб-разработка
  • 7 000 руб10 дней
6700 руб
Tg darfhh

Оставлять заявки могут только авторизованные пользователи.