2013-04-10 84 views

回答

0

最近有一个关于这个问题的问题,这个问题也是关于重新调整尺寸以适应细胞的问题。

https://stackoverflow.com/a/15589423/1467082

这里有4行代码,你需要开始:

Sub InsertPicFromURL() 

Dim pic As String 'file path of pic 
Dim myPicture As Picture 'embedded pic 

pic = "http://www.gravatar.com/avatar/4d3ac4ebeddcf958a7b8d3e73c2c6805?s=128&d=identicon&r=PG" 
Set myPicture = ActiveSheet.Pictures.Insert(pic) 

End Sub 
要显示这张照片,在网络浏览器或Excel工作表
相关问题