VBA变成如何实现以下功能：从数据库中的取出图像字段的内容导入PowerPoint中。

Question

数据库中存的是图片路径吗？
在PowerPoint中编辑宏，引用DAO3.6。
打开数据库，
Public pWorkspace As Workspace
Public pDatabase As Database
Set pWorkspace = DBEngine.Workspaces(0)
Set pDatabase = pWorkspace.OpenDatabase([数据库名])执行查询。
dim prst As Recordset
Set prst = pDatabase.OpenRecordset([SQL语句], dbOpenDynaset, dbInconsistent, dbOptimistic)然后追加叶面
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=[填上Index], Layout:=ppLayoutBlank).SlideIndex
然后
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=[填上得到的图形文件名], LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=233, Top:=175, Width:=255, Height:=191).Select搞定。

Answer 1

有两种方法：
1。保存成图片文件然后操作
2。拷贝图形到剪贴板，然后
    ActiveWindow.View.Paste
    With ActiveWindow.Selection.ShapeRange
        .Left = [左边距]
        .Top = [上边距]
        .Width = [图像宽]
        .Height = [高]
    End With