Recent content by tecnik

Thanks for the help guys, it all works fine now. Cheers, Nick

Hi there, I'm having problems trying to get the result of a cell that contains the formula below:- =IF(J18=1,"L8",IF(J18=3,"N8",IF(J18=2,"M8","0"))) into this OFFSET:- =OFFSET(L8,K18,0) So depending on dependent on a dropdown selection the value would change between L8, M8 and N8. I know...

Hi there, Rather than refering to an object on a page as below (by an index), I've been trying to refer the 'selected' item, however I keep getting a 'type mismatch'? Set myDocument = ActiveDocument pointsArray = myDocument.Shapes(1).Nodes.Item(1).Points I'm trying to apply this way of...

Thanks Skip, i've had a look at that. What I'm kinda lost with is if I set the position of a node with .SetPosition 1, 100, 100 how can I find out the positional values I have used from the node on the page? Thanks Nick

Thanks Skip, I think I've been getting my wires crossed about the coordinates being returned. Regards Nick

Hi Skip, Thanks for the information. Sorry, didn't explain, the selected line is the 'selection'. In the 'Microsoft VB help' I'd found this:- With ActiveDocument.Shapes(3).Nodes pointsArray = .Item(2).Points currXvalue = pointsArray(1, 1) currYvalue = pointsArray(1, 2)...

Hi there, I'm trying to put together a macro that moves line nodes, here's what I have so far:- Sub movePoint4() Set Nds = Selection.ShapeRange.Nodes With Nds pointsArray = .Item(2).Points currXvalue = pointsArray(1, 1) currYvalue = pointsArray(1, 2)...

Having looked a bit further, it appears to be using the value from the cell I have highlighted when I run the script.

Hi Geoff, My fault, I'd not cut and pasted your code, and so had left '.Activate' on the end of the find. Now when the code executes the find seems to post the first value found into all the cells. Any ideas, Thanks Nick

Hi Geoff, Thanks for your reply and help with the code. Your solution was one of the things I'd tried, however when I tried to run the macro I got a 'Type mismatch' error, which is what I get now. Please can you help further, Thanks in advance, Nick

Hi there, I'm trying to limit the search routine, below, to only find values from one column, D for example, at the moment it will find values from the whole sheet. I've tried to limit the find a number of ways but haven't had any success. Thanks in advance, Nick Sub FindCodesV2() Dim...

Taking this one step further, I've added the drawing of a line to my original code. What I've been trying to find out now is how I can select the rectangle that was drawn before the line, so basically both the line and the rectangle are selected. Thanks in advance, Nick Here's the code:-...

Hi Gerry, Thanks for the help. I've had a look at the inline shape object and I'm not sure if it'll do what I want. In the MSDN library it says that in only works with a 'picture, linked picture, embedded OLE object, linked OLE object, or ActiveX control'. Being a newbie on this subject I'm...

Thanks for the help with this one I've tried adding a form element to a document and giving it a label 'Coordinates' and then adding the sub-routine to my macros code but I can't see it when I try to assign it to the form element. When I look at the list of macros I can't see the new event...

Hi there, I have a simple macro that draws a rectangle on the page however I'd like to change the macro so it draws the rectangle at the cursor postition. Is this relatively easy to do. Thanks in advance, Nick Here's the code:- Sub box() ActiveDocument.Shapes.AddShape msoShapeRectangle...