VBA绝对路径改成相对路径 s

VBA绝对路径改成相对路径

set Shape = Slide.Shapes
set Picture9 = Shape.AddPicture("C:\Users\kaihzhan\Documents\PPT\day4\a.png",0,1,10,120,700,400)
这两句话怎么改成相对路径？
文件在同一文件夹里，试过去掉盘符，但是不能用
sub newppt
Set fso = CreateObject("Scripting.FileSystemObject")
Set objPPT = CreateObject("PowerPoint.Application")
Set objPresentation = objPPT.Presentations.Add
PageWidth = objPresentation.PageSetup.SlideWidth
PageHeight = objPresentation.PageSetup.SlideHeight
CustomPageWidth = objPresentation.PageSetup.SlideWidth
CustomPageHeight = objPresentation.PageSetup.SlideHeight

If objPresentation.HasTitleMaster Then
no = 1
set slides = objPresentation.Slides
set slide = slides.Add(no,1)
End If

set Slides = objPresentation.Slides
no = Slides.Count
no = no +1
set Slide = Slides.Item(1)

set Shape = Slide.Shapes
set Picture9 = Shape.AddPicture("C:\Users\kaihzhan\Documents\PPT\day4\a.png",0,1,10,120,700,400)
Picture9.PictureFormat.TransparencyColor = RGB(255, 255, 255)

相关了解……