adamburton
Registered User.
- Local time
- Today, 19:09
- Joined
- Jan 24, 2003
- Messages
- 75
Ive been following the code on the Microsoft support site for automatically creating a PowerPoint presentation using data from Access.
The sample code takes one field from the sample table and displays this on the PowerPoint slide - it then assumes the user can apply this knowledge and add more fields to the slides themselves. I have tried to do this but am getting nowhere.
Please can somebody advise how I add additional fields to the slides via the code. I am afraid Im not very confident with VBA so am stumbling a bit blindly here. Here is a sample of the code that I think I need to add to:
With ppPres
While Not rs.EOF
With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
.Shapes(1).TextFrame.TextRange.Text = "Hi! Page " & rs.AbsolutePosition + 1
.SlideShowTransition.EntryEffect = ppEffectFade
With .Shapes(2).TextFrame.TextRange
.Text = CStr(rs.Fields("LastName").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
I tried to replicate the last bit here by adding Shapes(3) and the new field name, but I must be doing something wrong because Access throws up an error message.
If anybody can give me some pointers I would be grateful. Also, if anyone can advise how I can determine the position of the fields on the slide I would be grateful (they seem to be centering at the moment).
The link for the full code is here: http://msdn.microsoft.com/library/d...-us/dno2k3ta/html/officeaccess2powerpoint.asp
Many thanks,
Adam.
The sample code takes one field from the sample table and displays this on the PowerPoint slide - it then assumes the user can apply this knowledge and add more fields to the slides themselves. I have tried to do this but am getting nowhere.
Please can somebody advise how I add additional fields to the slides via the code. I am afraid Im not very confident with VBA so am stumbling a bit blindly here. Here is a sample of the code that I think I need to add to:
With ppPres
While Not rs.EOF
With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
.Shapes(1).TextFrame.TextRange.Text = "Hi! Page " & rs.AbsolutePosition + 1
.SlideShowTransition.EntryEffect = ppEffectFade
With .Shapes(2).TextFrame.TextRange
.Text = CStr(rs.Fields("LastName").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
I tried to replicate the last bit here by adding Shapes(3) and the new field name, but I must be doing something wrong because Access throws up an error message.
If anybody can give me some pointers I would be grateful. Also, if anyone can advise how I can determine the position of the fields on the slide I would be grateful (they seem to be centering at the moment).
The link for the full code is here: http://msdn.microsoft.com/library/d...-us/dno2k3ta/html/officeaccess2powerpoint.asp
Many thanks,
Adam.
