Hi Mark,
* Mark Knecht <[EMAIL PROTECTED]> [040207, 16:46]:
> On 2/4/07, Ennio-Sr <[EMAIL PROTECTED]> wrote:
> >Hi Mark,
> >
> >* Mark Knecht <[EMAIL PROTECTED]> [030207, 17:20]:
> >[...]
This is not what you would like but seems to be a better workaround:
1. in the conditional formatting, set the 'equal to' condition to cell
$A$1
2. Copy this macro into your Calc sheet and assign it a keystroke
----------------
sub cptoa1
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
end sub
----------------
Suppose you assign the "CTRL+A" keystroke to the macro: now, as you
navigate your ss, whatever the cell you are in at the moment, if you
press CTRL+A that particular cell contents will be copied to cell $A$1
(or any other of your choice, to be indicated in the last but third of
my macro) thus firing up the condit. formatting.
It worked in my small test ss ... ;)
Cheers,
Ennio.
--
[Perche' usare Win$ozz (dico io) se ..."anche uno sciocco sa farlo. \\?//
Fa' qualche cosa di cui non sei capace!" (diceva Henry Miller) ] (°|°)
[Why use Win$ozz (I say) if ... "even a fool can do that. )=(
Do something you aren't good at!" (as Henry Miller used to say) ]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
