hulp met afbeelding/logo

[gebruiker werk]

Hallo

Ik moet voor school een powerpoint presentatie maken vanuit access.

Maar nu heb ik een probleem, mijn logo dat ik rechtsboven op de dia moet hebben werkt niet.

Ik gebruik de volgende codering:

Private Sub Knop0_Click()

Dim ppobj As PowerPoint.Application
Dim pppres As PowerPoint.Presentation
Dim dbsnu As DAO.Database
Dim rs As Recordset
Dim verplaats As Integer
Dim teller As Integer
Dim dianummer As Integer
Dim aantalLijnen As Integer

Dim s As Shape
Dim pad, naamplaatje, extensieplaatje As String

'pad naar de plaatjes
pad = "F:\6BIF\powerpoint verder uitwerken\ "
'naam van de plaatjes voor het cijfer, bijv. rond ipv rond1.bmp
naamplaatje = "logoschool"
'extensie van het plaatje + de voorloop.
extensieplaatje = ".bmp"

'hoe de afbeelding moet worden weergegeven
'Horizontaal 20.59 cm van linkbovenhoek afbeelding
'verticaal 0.00 cm van linksbovenhoek afbeelding
'hoogte 87% van originele afb(5.73 cm orignineel = 6.62 cm) en breedte 100%(4.82 cm) dit is grootte van afb
'draaihoek 0° afb

'aantal lijnen vastgelegd op 5 + 60 tekens

aantalLijnen = 5
dianummer = 1
teller = 1

Set ppobj = New PowerPoint.Application
Set pppres = ppobj.Presentations.Add

pppres.Slides.Add dianummer, ppLayoutBlank


verplaats = 50

Set dbsnu = CurrentDb
Set rs = dbsnu.OpenRecordset("tblgsm", dbOpenDynaset)
rs.MoveFirst
While Not rs.EOF
Call PPVoegLabeltoe(pppres, dianummer, 5, verplaats, 60, 150, rs.Fields("omgezetbericht"))
Call ppLayoutLabel(pppres, dianummer, teller, 24, "Times New Roman", True, 0, 255, 0)
verplaats = verplaats + 100
teller = teller + 1

If teller > aantalLijnen Then
dianummer = dianummer + 1
pppres.Slides.Add dianummer, ppLayoutBlank
verplaats = 50
teller = 1
End If


rs.MoveNext
Wend
pppres.SlideShowSettings.Run

Set dbsnu = Nothing
Set rs = Nothing

End Sub

Met vriendelijke groeten