Всем доброго времени суток! Прошу помочь с проблемой : Исходная: есть окно уведомления в котором текст есть Задача: изменить в нем жирность и цвет требуемых букв. Файл приложил на примере в уведомлении поменять цвет букв НР
Всем доброго времени суток! Прошу помочь с проблемой : Исходная: есть окно уведомления в котором текст есть Задача: изменить в нем жирность и цвет требуемых букв. Файл приложил на примере в уведомлении поменять цвет букв НРGameower
[offtop]Четвёртая тема на форуме... Ни одного "здравствуйте", ни одного "пожалуйста", сплошные повелительные наклонения... В темах отписаться, подошло ли решение, спасибо сказать - не барское это дело, видимо...[/offtop]
[offtop]Четвёртая тема на форуме... Ни одного "здравствуйте", ни одного "пожалуйста", сплошные повелительные наклонения... В темах отписаться, подошло ли решение, спасибо сказать - не барское это дело, видимо...[/offtop]Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Подтверждаю - было. И в последних темах даже есть благодарность Gameower - А вот удалять сообщения модераторов - НЕХОРОШО - они же стараются поддерживать порядок
А теперь по теме. Gameower, у Вас в файле есть UserForm. Можно использовать ее. См. Файл.
Подтверждаю - было. И в последних темах даже есть благодарность Gameower - А вот удалять сообщения модераторов - НЕХОРОШО - они же стараются поддерживать порядок
А теперь по теме. Gameower, у Вас в файле есть UserForm. Можно использовать ее. См. Файл. SLAVICK
SLAVICK, а можно ли как нить транслировать формат текста такой как он есть на листе тех замена? скажем часть текста будет красным и жирным выделено? эта форма что вами описана, она константа для общего ответа, тоесть будет все ответы типичны, а мне требуется каждый раз разную часть сообщения выделять, это возможно?
SLAVICK, а можно ли как нить транслировать формат текста такой как он есть на листе тех замена? скажем часть текста будет красным и жирным выделено? эта форма что вами описана, она константа для общего ответа, тоесть будет все ответы типичны, а мне требуется каждый раз разную часть сообщения выделять, это возможно?Gameower
В Вашей форме - я сделал два поля - можно одну часть текста писать в одно поле - вторую часть во вторую... только нужно прописать правило как этот текст делить. - это правило нужно сформулировать Вам, когда что отделять.
В Вашей форме - я сделал два поля - можно одну часть текста писать в одно поле - вторую часть во вторую... только нужно прописать правило как этот текст делить. - это правило нужно сформулировать Вам, когда что отделять. SLAVICK
В текст боксе нельзя так делать... Там заливается либо полностью цвет шрифта, либо фон. Сделал через вставку картинки. Теория здесь Добавил процедуру формирования - вставляния - убивания картинки из нужного диапазона. Теперь все будет в точности как в ячейке 2-го листа [vba]
Код
Sub Pic_in_userForm(f$) Dim avFiles, li As Long, oObj As Object, wsSh As Worksheet, wsTmpSh As Worksheet Dim sBookName As String, sName As String, r As Range Set wsTmpSh = Sheets("Тех замены") Set r = Sheets("Тех замены").Range(f) r.CopyPicture Appearance:=xlScreen, Format:=xlPicture sName = ActiveWorkbook.FullName & "_" & Sheets(2).Name & "_" & ".jpg" Set oObj = wsTmpSh.ChartObjects.Add(0, 0, r.Width, r.Height).Chart With oObj .ChartArea.Border.LineStyle = 0 .Paste .ChartArea.Width = 1000 .ChartArea.Height = 1000 / r.Width * r.Height .Export Filename:=sName, FilterName:="JPG" .Parent.Delete End With Set UserForm1.Image1.Picture = LoadPicture(sName) Kill sName End Sub
[/vba]
В текст боксе нельзя так делать... Там заливается либо полностью цвет шрифта, либо фон. Сделал через вставку картинки. Теория здесь Добавил процедуру формирования - вставляния - убивания картинки из нужного диапазона. Теперь все будет в точности как в ячейке 2-го листа [vba]
Код
Sub Pic_in_userForm(f$) Dim avFiles, li As Long, oObj As Object, wsSh As Worksheet, wsTmpSh As Worksheet Dim sBookName As String, sName As String, r As Range Set wsTmpSh = Sheets("Тех замены") Set r = Sheets("Тех замены").Range(f) r.CopyPicture Appearance:=xlScreen, Format:=xlPicture sName = ActiveWorkbook.FullName & "_" & Sheets(2).Name & "_" & ".jpg" Set oObj = wsTmpSh.ChartObjects.Add(0, 0, r.Width, r.Height).Chart With oObj .ChartArea.Border.LineStyle = 0 .Paste .ChartArea.Width = 1000 .ChartArea.Height = 1000 / r.Width * r.Height .Export Filename:=sName, FilterName:="JPG" .Parent.Delete End With Set UserForm1.Image1.Picture = LoadPicture(sName) Kill sName End Sub
спасибо за труд,он действительно очень огромный,но боюсь мою необходимую задачу он не так решит, поясню : когда такой скрипт применить появляются такие проблемы : если вы из этой же книги пытаетесь скопировать ячейку то она не копируется, а в моем исходнике копирование будет частым так что это не подойдет. Но все равно большое вам спасибо!
спасибо за труд,он действительно очень огромный,но боюсь мою необходимую задачу он не так решит, поясню : когда такой скрипт применить появляются такие проблемы : если вы из этой же книги пытаетесь скопировать ячейку то она не копируется, а в моем исходнике копирование будет частым так что это не подойдет. Но все равно большое вам спасибо!Gameower