Samuel’s HQ

It’s vacation time !!!…

We are on our way to explore South America…

We will be visiting Peru, with Lima, Cuzco and Machu Picchu.
And we will finish with one week in patagonia…

(56 hits)

Here is the reason why I tried to demo a website from powerpoint (110 hits)… I needed to demonstrate how to use a new Unix application, but I wanted to do that from my powerpoint presentation. After some time spent on google, I didn’t find any way to integrate a ‘unix terminal’ component in a power point slide.

So my solution was to use the embedded browser and use Ajaxterm to connect to a remote linux host… This works… but there is a limitation as it’s not possible to use PageUp, PageDown to go up and down in your terminal… In order to fix that, you can start ’screen’ on your unix host, and then you can navigate in your terminal using Ctrl+b, Ctrl+f.

I believe that there is a cleaner to connect to a unix host from powerpoint… but I didn’t find it. If you know other solution… please share

Some links to finish, I didn’t try anyterm but it looks cool too…

• Ajaxterm (94 hits)
• Anyterm (96 hits)
• Gnu-Screen (76 hits)

Problem: You are giving a powerpoint presentation, and during this presentation you need to show/browse a website. The solution that most of the persons will chose will be to hit “alt+tab” to switch the focus to their browser… Yes that does the trick… But you may want to show the website from your powerpoint to keep your audience captivated. I personally think that people has a tendency to get distracted when you switch away from your fullscreen powerpoint.
(48 hits)

My solution is to integrate a “Microsoft Web browser” component on your slide, so you can use it to browse a website. Start by adding the component as shown in this screen shot.



(59 hits)

Then you can put several buttons on your slide to control your embedded browser. It should look like on this screenshot.


Finally you will have to add some Visual Basic code to your button’s callbacks. Something like:

Private Sub FontDecrease_Click()
    Dim Z As Variant
    WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Null, Z
 
    If Z > 0 Then
        Z = Z - 1
    Else
        Z = 0
    End If
    WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Z, Null
End Sub
 
Private Sub FontIncrease_Click()
    Dim Z As Variant
    WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Null, Z
 
    If Z < 4 Then
        Z = Z + 1
    Else
        Z = 4
    End If
    WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Z, Null
End Sub
 
Private Sub StartDemo_Click()
    WebBrowser1.Navigate ("http://samuel.happycoders.org/")
End Sub
 

Download this code: test-www-ppt.pas (79 hits)

And here is the result:
(46 hits)

Download the example (83 hits)

In the next post I will explain why I wanted to do that… I have a really geeky reason

Nice video of Machu Picchu…

and 2! It’s fun the first time… the second time it’s starting to be a little bit scary

• http://quake.wr.usgs.gov/recenteqs/Quakes/nc51189819.html (90 hits)