Help Needed for Word Search Creation - Challenging

[Monres]

Good afternoon excel wizards,

I am struggling here after not having used VBA in so long. I am working off of Rijnsent's amazing work that generates a crossword puzzle using excel and macros:

Crossword/wordsearch puzzle maker with Excel&VBA

Hi all, just wanted to share a tool I created today responding to a reddit post about a wordsearch/crossword puzzle generator: https://www.dropbox.com/s/luf5sljzy63ef26/CrosswordPuzzleMaker.xlsm?dl=0 It's a rather simple tool that transforms a list of words to a crossword/wordsearch puzzle...

www.mrexcel.com

I would like to expand on this and find a way to incorporate lines drawn through the words used. I found this:

Draw Excel Lines or Arrows Between Cells with VBA - wellsr.com

Use this macro to draw Excel arrows between cells with VBA. You can also use it to draw lines or other connectors between cells.

wellsr.com

I just don't know enough to know where to get the reference cells from and use them to draw the lines. Any help with this would be huge.

Thank you all!
~Monres

 

[Logit]

The first link to the word generator resulted in an error message here that I am unable to resolve.

However, you can use the following macro to draw a line through the term searched for :

Option Explicit

Sub findWord()
    Dim ws As Worksheet
    Dim findAword As Range
    Dim wordToFind As String
    
    Set ws = Sheet1
    
    wordToFind = InputBox("What word do you want to find?")
    
    If wordToFind = "" Then
        Exit Sub
    Else
        Set findAword = ws.Cells.Find(What:=wordToFind, LookAt:=xlPart, MatchCase:=False)
    End If
    
    If Not findAword Is Nothing Then
       findAword.Select
       ActiveCell.Font.Strikethrough = True
       Range("A1").Select
    Else
        MsgBox "Sorry, " & wordToFind & " was not found."
    End If
    
End Sub

 

[Monres]

Apologies, I should have been a bit more descriptive. So far the crossword puzzle generator gives me something like this:

I would like to find a way to draw a shape (line) from one end of the word to the other so it looks like this (with lines for every word of course):

I'm not sure why you can't access the first link, it works for me, apologies. I know that somewhere in the VBA code for this generator, I need to incorporate the code for drawing the lines, but I just can't figure it out on my own. I hope this is a bit more of a description of what I'm looking for. Thank you for your quick reply!

 

[Logit]

He is running Excel 365. Lots different from my 2007 version.

Yes, the macro I provided will not draw diagonal. Sorry.

 

[Monres]

And by crossword puzzle I mean word search puzzle. Sorry I have been staring at this for so long.

 

[Logit]

No problem. I am certain some one else will be able to assist. Lots of good folks on here.