Zoe is Walking
Posted on September 4th, 2008 by Keith
View or Change Path to Linked Media on a PowerPoint Slide with VBA
Posted on May 20th, 2008 by Keith
? Application _
.ActivePresentation _
.Slides(x) _
.Shapes(x) _
.LinkFormat _
.SourceFullName
This will output the full path information to the linked media file. To change the path, such as in the case of removing full path information and leaving just the filename, use the following syntax:
Application _
.ActivePresentation _
.Slides(x) _
.Shapes(x) _
.LinkFormat _
.SourceFullName = "mediafile.mpg"
Musical Blast from the Past
Posted on April 11th, 2008 by Keith
I finally retrieved a demo I did with a band eighteen years ago. Eighteen years…
Update: Visit the Ice Angel MySpace Page (Thanks, J)!
yourli.st WordPress Plugin
Posted on April 3rd, 2008 by Keith
I’d like to thank Alan over at YourLi.st for building this service and his positive feedback on the plugin.
I’d also like to thank Ronald Huereca for his great series How to Write a WordPress Plugin. If you have any intention of developing your own plugins for WordPress, go there immediately.
Flag Selected Microsoft Outlook Inbox Items for Follow Up
Posted on January 2nd, 2008 by Keith
To avoid losing action items as my e-mail flows in, I make extensive use of the “Flag for Follow Up” feature in Outlook. Having grown tired from clicking around the dialog box with the calendar that pops up next to the “Due By” field, I created the following VBA macro:
Sub FlagForXMinutes(intMinutes As Integer, strFlagRequest As String)
Dim Item As Object
Dim SelectedItems As Selection
Set SelectedItems = Outlook.ActiveExplorer.Selection
For Each Item In SelectedItems
With Item
.FlagStatus = 2
.FlagDueBy = CStr(CDate(Format(CDbl(Now) + intMinutes / 1440)))
.FlagRequest = strFlagRequest
.Save
End With
Next Item
End Sub
I’ve assigned a couple of buttons on my Outlook toolbar with the following macros attached:
Sub FlagForFollowUp15Minutes()
FlagForXMinutes 15, "Follow Up"
End Sub
Sub FlagForFollowUp30Minutes()
FlagForXMinutes 30, "Follow Up"
End Sub
I have not played around with too many variations, but this works with items contained within Public Folders as well as Meeting Requests and Responses, thanks to the “Dim Item As Object” declaration which provides some added flexibility.