Hi,
Am looking to speed up the use of Wordle by changing some of the dropdowns using vba in Excel 2016.
The page is here... http://www.wordle.net/advanced
If you access this page (not via.Chrome, so use IE etc., it also requires Java) and copy this example text Tools:406.5:949494 into the second box on the page and press 'Go' you will see the word cloud produced in an applet. I currently have vba which gets me to this point but I can't work out how to automate changing the format of the cloud - am looking for vba to change the 'Font' dropdown to 'Vigo' and the 'Layout' dropdown to 'Horizontal'. Wordle doesn't remember your last format setting hence the need to be able to automate this with vba when producing lots of clouds with the same format. My code is below.
Any help much appreciated.
Am looking to speed up the use of Wordle by changing some of the dropdowns using vba in Excel 2016.
The page is here... http://www.wordle.net/advanced
If you access this page (not via.Chrome, so use IE etc., it also requires Java) and copy this example text Tools:406.5:949494 into the second box on the page and press 'Go' you will see the word cloud produced in an applet. I currently have vba which gets me to this point but I can't work out how to automate changing the format of the cloud - am looking for vba to change the 'Font' dropdown to 'Vigo' and the 'Layout' dropdown to 'Horizontal'. Wordle doesn't remember your last format setting hence the need to be able to automate this with vba when producing lots of clouds with the same format. My code is below.
Any help much appreciated.
Code:
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
IE.Navigate "http://www.wordle.net/advanced"
Do While IE.Busy: DoEvents: Loop
Do While IE.ReadyState <> 4: DoEvents: Loop
IE.Document.getElementByid("colorwordcounts").Value = _
Sheets("Sheet1").Range("E17").Value
IE.Document.forms(1).submit 'form (1) relates to the 2nd form on the page
Do While IE.Busy: DoEvents: Loop
Do While IE.ReadyState <> 4: DoEvents: Loop