[求助]如何用VBA將此圖另存為本工作薄名稱.jpg

nawong · 发表于 2006-5-3 17:03

如何用VBA將此圖另存為本工作薄名稱.jpg，如：1D627-L.jpg 或者說：將此圖COPY-->然後打開小畫家-->貼上-->保存為難ThisWorkBook.Path & "\1D627-L.jpg"-->關閉小畫家

h8BsI9aZ.rar (133 KB, 下载次数: 4)

wshzw · 发表于 2006-5-3 22:23

这样可以吗？ With ActiveSheet.Shapes(1) .Select .CopyPicture xlPrinter End With Set cht = Charts.Add With cht .Paste .Export myPath & ".jpg" .Delete End With

Z2B8GXSb.rar (136.2 KB, 下载次数: 22)

清风_ll · 发表于 2006-5-3 23:01

以下是引用[I]wshzw[/I]在2006-5-3 22:23:34的发言：[BR]这样可以吗？ With ActiveSheet.Shapes(1) .Select .CopyPicture xlPrinter End With Set cht = Charts.Add With cht .Paste .Export myPath & ".jpg" .Delete End With

温馨提醒:文件夹名称中可能也会带".",所以用split方法可能会得不到想要的效果

nawong · 发表于 2006-5-4 09:37

謝謝wshzw兄和清風兄的熱心回復，已經達到我要的效果，謝謝！

清風兄的提醒，我想用以下方法變通，兄台以為如何：

myPath = Split(ThisWorkbook.FullName, ".")(0)

--->
myPath = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "."))

		自动登录	找回密码
密码			免费注册

[求助]如何用VBA將此圖另存為 本工作薄名稱.jpg

[求助]如何用VBA將此圖另存為本工作薄名稱.jpg