[分享]最新排序法（中括号[]的应用）

HHAAMM

这样成了

Sub ImageLoadShtPic()
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "d:\temp.htm", "Sheet1", "", xlHtmlStatic, "temp", "")
        .Publish
End With

ActiveSheet.Image1.Picture = LoadPicture("d:\temp.files\temp_image003.jpg")

End Sub

HHAAMM

学习了，

绕了一个圈，好像必须要绕这么个圈

ldy

QUOTE:

以下是引用willin2000在2008-7-27 22:14:42的发言：

Sub ImageLoadShtPic()
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "c:\temp.htm", "Sheet1", "", xlHtmlStatic, "temp", "")
        .Publish
End With

ActiveSheet.Image1.Picture = LoadPicture("c:\temp.files\temp_image001.jpg")

End Sub

以前用另存的笨方法：

    ActiveWorkbook.SaveAs Filename:="c:\temp.htm", FileFormat:=xlHtml

结果是所有表的图片都弄下来了，文件夹很大，PublishObjects对象可以选择单个表，要是能指定单个对象就好了。

PublishObjects对象第一次了解，周兄介绍方法非常实用。谢谢

HHAAMM

SourceType     XlSourceType 类型，必需。源的类型。

XlSourceType 可为以下 XlSourceType 常量之一。表示源对象。

xlSourceAutoFilter  自动筛选区域。

xlSourceChart  图表。

xlSourcePivotTable  数据透视表。

xlSourcePrintArea  选定要打印的单元格区域。

xlSourceQuery  查询表（外部数据区域）。

xlSourceRange  单元格区域。

xlSourceSheet  整张工作表。

xlSourceWorkbook  工作簿。 指定单个对象,这些参数好像可以达到要求

[此贴子已经被作者于2008-7-28 1:39:42编辑过]

HHAAMM

Sub ImageLoadShtPic()
With ActiveWorkbook.PublishObjects.Add(xlSourcePrintArea, "d:\temp.htm", "Sheet1", "", xlHtmlStatic, "temp", "")
        .Publish
End With

ActiveSheet.Image1.Picture = LoadPicture("d:\temp.files\temp_image001.jpg")

End Sub

把某图片所在的区域设置为打印区域，结果就只有单个的了

HHAAMM

图片所在区域L1:M6

Sub ImageLoadShtPic()
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, "d:\temp.htm", "Sheet1", "L1:M6", xlHtmlStatic, "temp", "")
        .Publish
End With
ActiveSheet.Image1.Picture = LoadPicture("d:\temp.files\temp_image001.jpg")
End Sub

这样可以了

ldy

只能算变通的法子，两张图片叠在一起，一样会都倒出来

HHAAMM

好像只能是图表

Sub ImageLoadShtPic()
m$ = "图表 8"
ActiveWorkbook.PublishObjects.Add(xlSourceChart, "d:\temp.htm", "Sheet1", m, xlHtmlStatic, "temp", "").Publish

ActiveSheet.Image1.Picture = LoadPicture("d:\temp.files\temp_image001.GIF")
End Sub

chen7806

顶了。

作个记号，慢慢消化。

laoyebin

一贴两精华，学习了