我提供一个办法吧,调用psd将图层分寸成bmp 然后再去读取
Dim psdapp As New Photoshop.Application
Dim psddoc As Photoshop.Document
Dim psdlay As Photoshop.ArtLayer
Dim i As Integer, j As Integer
psddoc = psdapp.Open("c:\tj.psd")
Dim saveOptions As New BMPSaveOptions()
For i = 1 To psddoc.Layers.Count
For j = 1 To psddoc.Layers.Count
psdlay = psddoc.Layers(j)
psdlay.Visible = False
Next
psdlay = psddoc.Layers(i)
psdlay.Visible = True
psddoc.SaveAs("c:\" & i & ".bmp", saveOptions, True)
Next
psddoc.Save()
psddoc.Close()