генерирование jpg файла с заданным фоном и текстом (визитка E-Mail)

Пользователь

Сообщений: 3 Регистрация: 05.07.2013

08.04.2014 14:32:48

нужно генирировать jpg файл с определённым фоном и задаваемым текстом.
файл ограниченного разрешения, размера (должен отображаться в шапке тела письма в почтовой программе, потому ограничения)
всё это максимально автоматизированно.
до сего момента делал вручную в паблишере: создан шаблон в котором вписывались имя фамилия телефон мыло и потом
выделение содержимого-сохранить как графический объект-формат jpg-96dpi-имя файла...-сохранить.
макрос в паблишере к сожалению только кодом пишется. записи действий в макрос нет. знаний программирования тоже нет.
я по железочкам вообще... но партия говорит: надо! - и комсомолец отвечает: есть!

pharmaprofi

Гость

08.04.2014 16:45:01

Цитата
srs_red пишет: jpg файл с определённым фоном и задаваемым текстом.

Не уверен, что в Excel это можно сделать легко и просто. В .NET это делается в 5 строк.

Код

private System.Drawing.Image GenerateCaptcha(string code)
        {
            Bitmap image = new Bitmap(130, 50);
            Graphics g = Graphics.FromImage(image);
            g.FillRectangle(Brushes.DarkGray, 1, 1, 128, 4;
            Font font = new Font("Impact", 20, FontStyle.Regular);
            g.DrawString("Hello World!", font, Brushes.Blue, 10, 5);
    
            return image;
        }

Наверное проще скомпилировать dll или прил. командной строки которую уже подключить к excel

P/s вот такое родилось - при запуске из CMD с параметром "String" генерирует серый прямоугольник с текстом

Прикрепленные файлы

genJpg.zip (3.07 КБ)

Изменено: pharmaprofi - 08.04.2014 17:17:20

srs_red

Пользователь

Сообщений: 3 Регистрация: 05.07.2013

08.04.2014 18:01:53

pharmaprofi, спасибо за отклик. это не совсем то что мне нужно.
смысл в том, что имеется определённое изображение, которое должно являться фоном на котором
сверху накладываются текстовые данные. своего рода визитка. этот файл через хтмл прописывается в почтовик в сигнатуру и
когда мы нажимаем написать или ответить то отображается эта хрень в шапке как лого и получатель видит эту хрень когда получает
и так для толпы пользователей.
до сего момента в подготовленный шаблон вносятся имя фамилия телефон и это само собой ручками, но вот дальше процесс сохранения
в правильной форме слишком сложный для "некоторых". потому возникло желание автоматизации сего процесса.
в экселе не пробовал да и не для того он.
в паблишере споткнулся на макросе.
осталось в презентациях попробовать.
может какие-то php скрипты или что-то типа jQuery генератора (в некоторых местах аналогичен вашему нет-скрипту) есть,
которые можно было бы в простой форме как форма заполнения исполнять, заполнять нужные поля и нажав сохранить
получить на выходе картинку с заданным разрешением, фоном из файла-ов и вбитым текстом. (а ещё например если какой-то параметр не заполнен,
то не отображается и его поле в готовом файле. например "Тел." не отображать если нет номера. типа функции слежения в макросах)

Изменено: srs_red - 08.04.2014 18:03:39

anvg

Пользователь

Сообщений: 11927 Регистрация: 22.12.2012

Excel 2016, 365

09.04.2014 04:33:16

Цитата
имеется определённое изображение

Класс Bitmap в Net имеет конструктор, который позволяет создавать объект в том числе из существующего изображения. Можно нарисовать поверх него не только текст но и другое изображение.
Можно и средствами Excel создать подобный "баннер", как вариант.

Скрытый текст

Код

Private Function GetLabel(ByVal forChart As Chart, ByVal withText As String, ByVal withWidth As Single) As Shape
    Dim pShape As Shape, pText As TextFrame2
    Set pShape = forChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, withWidth, 20)
    Set pText = pShape.TextFrame2
    pText.TextRange.Text = withText
    pText.Orientation = msoTextOrientationHorizontal
    pText.WordWrap = msoFalse
    pText.MarginBottom = 0: pText.MarginLeft = 0: pText.MarginTop = 0: pText.MarginRight = 0
    pText.AutoSize = msoAutoSizeShapeToFitText
    Set GetLabel = pShape
End Function

Public Sub CreateBanner(ByVal withWidth As Single, ByVal withHeight As Single, _
                        ByVal imagePath As String, ByVal outPath As String, ByVal withFirstName As String, _
                        ByVal withLastName As String, Optional ByVal withPhone As String = "")
    Dim pChart As Chart, pSheet As Worksheet, chartShape As Shape
    Dim pLabel1 As Shape, pLabel2 As Shape, pLabel3 As Shape
    Dim vLeft As Single, maxWidth As Single, textMult As Single
    Dim vHeight As Single, vTop As Single, vStep As Single
    
    Set pSheet = ThisWorkbook.Worksheets.Add
    Set chartShape = pSheet.Shapes.AddChart(XlChartType.xlArea, 10, 10, withWidth, withHeight)
    With chartShape.Fill
        .Visible = msoTrue
        .UserPicture imagePath
        .TextureTile = msoFalse
    End With
    Set pChart = chartShape.Chart
    Set pLabel1 = GetLabel(pChart, withFirstName, withWidth)
    maxWidth = pLabel1.Width: vHeight = pLabel1.Height
    Set pLabel2 = GetLabel(pChart, withLastName, withWidth)
    If pLabel2.Width > maxWidth Then maxWidth = pLabel2.Width
    vHeight = vHeight + pLabel2.Height
    If withPhone <> "" Then
        Set pLabel3 = GetLabel(pChart, withPhone, withWidth)
        If pLabel3.Width > maxWidth Then maxWidth = pLabel3.Width
        vHeight = vHeight + pLabel3.Height
        textMult = 0.25
    Else
        textMult = 0.333333333333333
    End If
    vLeft = (withWidth - maxWidth) * 0.5
    pLabel1.Left = vLeft: pLabel2.Left = vLeft: If Not pLabel3 Is Nothing Then pLabel3.Left = vLeft
    vStep = textMult * (withHeight - vHeight): vTop = vStep
    pLabel1.Top = vTop: vTop = vTop + pLabel1.Height + vStep
    pLabel2.Top = vTop
    If Not pLabel3 Is Nothing Then
        vTop = vTop + pLabel2.Height + vStep
        pLabel3.Top = vTop
    End If
    Set pLabel1 = Nothing: Set pLabel2 = Nothing: Set pLabel3 = Nothing
    Set pChart = Nothing: Set chartShape = Nothing
    pSheet.ChartObjects(1).Chart.Export outPath
End Sub

P. S. Чтобы изображение помещалось в диаграмму полностью нужно подобрать/вычислить и изменить его разрешение из расчёта, что 1 пункт это 1/72 дюйма. Успехов.

Изменено: anvg - 09.04.2014 09:04:16

Слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#5 12.04.2014 12:20:40 я выкладывал здесь пример фоторедакции - там на фото накладывается дата снимка.. в копилке.. по-моему, то, что вам надо, только подпилить чуть Живи и дай жить..

srs_red Пользователь Сообщений: 3 Регистрация: 05.07.2013	#6 14.04.2014 13:15:11 Слэн, спасибо. читаю. Изменено: srs_red - 14.04.2014 14:44:24