[Solved] Colorize Text Phrase as a GRADIENT?

[semicodin]

For example, I have a phrase I would like to begin with the font color in BLACK and end with the font color in BLUE.

I'm not certain where to post this so (as is usually the case with me) move it where it belongs.

[MrProgrammer]

Intersect fontwork containing the text with an area filled with a gradient.

If this answered your question please go to your first post use the Edit button and add [Solved] to the start of the title. You can select the green checkmark icon at the same time.

[semicodin]

MrProgrammer I'm not sure how you did that in Writer. Here's the actual file. Here's a stripped-down Forum-Friendly version. Just as in your example, the text is a L to R gradient from BLACK to BLUE. Thank you so much.

BECOMES.odt

(9.52 KiB) Downloaded 237 times

[F3K Total]

R

[Zizi64]

Here is an another approach based on macros.
The previous solutions will put a graphical object into a textual document.
My macro (running in a Calc application), will colorize a text (letter by letter) with colors calculated from the adjusted gradient limits. After formatting you can paste it into a text line like the normal formatted strings...

Gradient color3.ods

(21.59 KiB) Downloaded 464 times

Edit: Tested and modified with Libreoffice 4.4.4

[cegri]

Zizi64's macro is very close to what I'm seeking, so I'll post here:

I need a similar macro that will format within the selected cell.
If the selected cell has multiple lines, the first line will be left at 12px regular font. The rest of the cell shall be formated to 10pc italic font. Single line cells are left as 12 px regular fonts.
So the macro will go through each character in the cell, use font A until the first line feed, than B for the rest.

The macro will be used to format a template that has a few hundred products. The template will then be used by a couple of people to prepare quotations. Using multiple cells is not preferred to avoid copy/paste errors

[Zizi64]

I suggested for you in a PM:

"It is not a good idea (really it is wrong idea) to format differenly the text lines in a cell. Use more than one cell with different CellStyles, and near the cells use combined (merged) cells. Those will be appeared as a single cell, and use white (or other colorized) background for the differently formatted cells: they will appeares similarly to a single cell."

your answer was:
"I prefer not to use separate cells to avoid copy / paste errors."

My Tip now:
Then use the suggested method, and write a simple macro for the copy/paste procedure...

[cegri]

Below is the code I ended up with, tweaking Zizi64's code.

This only formats the current cell.

Could someone point me to the simplest method for repeating this for all the cells in the current selection.

Like;
For (each cell in currentselection as x){
// do stuff on x;
}

Code: Select all

sub FormatProductDescription
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
dim args1(0) as new com.sun.star.beans.PropertyValue
dim args2(0) as new com.sun.star.beans.PropertyValue
dim args3(0) as new com.sun.star.beans.PropertyValue
dim args4(1) as new com.sun.star.beans.PropertyValue
dim PositionOfEnter as Long
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----RESET FORMAT TO DEFAULT STYLE
dispatcher.executeDispatch(document, ".uno:ResetAttributes", "", 0, Array())

rem ----APPLY FORMAT
oCell = ThisComponent.getCurrentSelection() 

TextContent = oCell.string
PositionOfEnter = InStr(TextContent, chr(10))

if PositionOfEnter > 0 then
	args1(0).Name = "Symbols"

	args2(0).Name = "FontHeight.Height"
	args2(0).Value = 10

	args3(0).Name = "Italic"
	args3(0).Value = true
	
	args1(0).Value = Left(TextContent, PositionOfEnter)
	dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1())

	dispatcher.executeDispatch(document, ".uno:FontHeight", "", 0, args2())
	dispatcher.executeDispatch(document, ".uno:Italic", "", 0, args3())	

	args1(0).Value = Mid(TextContent, PositionOfEnter)
	dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1())

end if

	args4(0).Name = "By"
	args4(0).Value = 1
	args4(1).Name = "Sel"
	args4(1).Value = false

	dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args4())

end sub