Access 代码实现缩略图，求完善

roych

Private Declare Function GdipCreateFromHDC Lib "gdiplus" (ByVal hDC As Long, graphics As Long) As GpStatus

这个hDC应该是设备场景的句柄，应该等同于hwnd之类。没时间一步步帮你调试了。
picture如何获取句柄，请参考下小宝发的帖子：
http://www.office-cn.net/thread-106783-1-1.html
不过这个不是用GDI+，而是GDI的。
---------------------------------------------------------------------
'另外可以考虑使用这个API。
' 从内存中用指定大小和格式建立位图，位图句柄在Bitmap参数内返回
Private Declare Function GdipCreateBitmapFromScan0 Lib "gdiplus" (ByVal Width As Long, ByVal Height As Long, ByVal Stride As Long, ByVal PixelFormat As GpPixelFormat, Scan0 As Any, Bitmap As Long) As Long

-----------------------------------------------------------------------
不过，在VBA里使用GDI+困难始终很大。