Как изменить цвет текста с помощью WinApi

[sergius25]

Подскажите, пожалуйста, как с помощью функций WinApi в макросе изменить цвет выводимого текста в ячейки Excel?

[Naghual]

Зачем усложнять жизнь?
API нету - сам эксель рулит!

[sergius25]

Такое задание в универе дали!

[Finch]

sergius25, В ВинАПИ есть функция SetTextColor. Только я не совсем допонимаю, как это должно согласовываться с Excell. Или у Вас препод слишком умный или прикалывается.

[nikedeforest]

Selection.Font.ColorIndex = 50

50 - номер цвета
зы.В каком форуме создана тема, на таком языке и отвечаю

[sergius25]

Только я не совсем допонимаю, как это должно согласовываться с Excell.

Мне нужно это привязать к следующему заданию, которое я сделал:
Макрос в Word вызывает файл F.xls, в котором находится заранее записанный макрос и передаёт ему управление. Этот макрос получает строчку, которая введена в Word, изменяет порядок слов в этом тексте на обратный и выводит каждое слово в ячейке. В тексте с изменённым порядком слов первая буква в первом слове должна быть большой, а первая и последняя буквы в последнем слове должны быть маленькими!

[Finch]

sergius25, А где в задании упоминание цвета и WinAPI?

[sergius25]

А где в задании упоминание цвета и WinAPI?

А самый первый пост по твоему что?

[nikedeforest]

sergius25, ты не дерзи. Твой первый пост это куча несвязных слов. Так что, если ты еще не получил ответа на свой вопрос, то рассказывай  подробнее что хочешь. Тебе уже дали и АПИ функцию и методы Вижуал Бэйсика. Что еще надо?

[sergius25]

sergius25, ты не дерзи.

Извините!

Твой первый пост это куча несвязных слов. Так что, если ты еще не получил ответа на свой вопрос, то рассказывай  подробнее что хочешь. Тебе уже дали и АПИ функцию и методы Вижуал Бэйсика. Что еще надо?

Вот код макроса задания, условие которого я написал тремя постами выше:

Код:

Sub WordRevers(s)

Dim s1() As String
Dim i As Integer
Dim sTmp As String

'разбиваем предложение на слова
s1 = Split(s, " ")
For i = LBound(s1) To UBound(s1)
sTmp = s1(UBound(s1) - i)

'выполняем условие про большие и маленькие буквы
'если последенее слово, то делаем первую букву большой
If i = LBound(s1) Then sTmp = UCase(Left(sTmp, 1)) + Mid(sTmp, 2)

'если первое слово, то делаем все буквы маленькими
If i = UBound(s1) Then sTmp = LCase(sTmp)

'пишем результат
ActiveWorkbook.Worksheets(1).Cells(1, i + 1) = sTmp

'ActiveWorkbook.Worksheets(1).Range("A" & CStr(i + 1)).Value = sTmp
Next i

End Sub

Где s - переменная, в которой хранится текст, напечатанный в Word.

И вопрос: как подключить ф-цию WinApi и спомощью неё изменить цвет текста, выводимого в ячейки?

[Finch]

sergius25, У тебя вообше есть примеры, как вставлять в аплеты экселя WinAPI функции. Просто все графические WinAPI функции подрузомевают контекст вывода (DC). У меня правда нет опыта написания аплетов. Но я никак не могу взять в толк, как можно например рисовать в ячейке экселя напрямую, обходя весь механизм самого экселя.

[nikedeforest]

Вот как советуется  для ВБ, но не ВБА

Код:

Private Declare Function SetWindowText Lib "User32" _
Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Ну и применять советуют так

Код:

 Private Sub Form_Load()
   SetWindowText Form1.hWnd, "SDFsdfgsdf"
 EndSub

Для SetTextColor будет по анналогии, только библиотека будет Gdi32 и может Alias не пригодится.
Только смотри какой момент, я понимаю, как эти функции должны буджут работать с формами, которые ты создаш в экселе допустим текст ячейкт ...., тут надо думать.