Newton Excel Shakespeare

Another excellent link from Al Vachris:

Bruce McPherson’s Site

This site is all about how to free your Excel data from your desktop and take advantage of web capabilities such as Docs, Maps, Earth , Gadgets, Visualizations and a whole bunch of other services . Along the way, you’ll see a few techniques, tips and tricks as well as fully functional sample applications in Vba and javaScript. All examples are downloadable here, and the code is unprotected and free for non commercial re-use.

Click to open site in new window

A random example from the site is the code below, which will let your computer quote Hamlet to you:

Public Sub say()
Dim TextA As Variant, i As Long
Dim sTerm As String, spv As Object

TextA = Selection.Value
Set spv = CreateObject("SAPI.SpVoice")

If IsArray(TextA) = True Then
For i = 1 To UBound(TextA)
sTerm = TextA(i, 1)
            spv.Speak sTerm
Next i
        spv.Speak TextA
    End If

Set spv = Nothing

End Sub

See for more details, and download the sample spreadsheet below from Text2Speech.xlsb

Text2Speech.xlsb, download from the link above

This entry was posted in Computing - general, Excel, Javascript, VBA and tagged , , , , , . Bookmark the permalink.

2 Responses to Newton Excel Shakespeare

  1. Pingback: Daily Download 27: Miscellaneous | Newton Excel Bach, not (just) an Excel Blog

  2. allenebonin says:

    Good article , I learned a lot from the information . Does someone know where my assistant might grab a sample a form version to fill out ?


Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.