excel如何插入图片

插入图片后如何按标准修改图片的尺寸？

我用以下代码在EXCEL的指定单元格内自动播放了图片，但图片有大有小，我想限定图片的尺寸为宽75像素，高100像素，应该如何设置呢？望大侠指点。

Sheets(\"Sheet1\").Range(\"J3:J4\").Select

ActiveSheet.Pictures.Insert(\"D:\\photo\\\" & [sfzh] & \".jpg\").Select

參考一下....

Sheets(\"Sheet1\").Range(\"J3:J4\").Select

With ActiveSheet.Pictures.Insert(\"D:\\photo\\\" & [sfzh] & \".jpg\")

.Width = 75

.Height = 100

End With

Excel如何用VBA代码删除工作表内插入的所有图片？

悬赏分：20 - 解决时间：2008-10-26 17:20

问题补充：

\"qgrmdtj\"的方法确实能让工作表一下子变得很干净，遗憾的是控制的按钮也没了。如果能改进一下就好了。

Sub qgrmdtj()

For Each im In ActiveSheet.Shapes

im.Delete

Next

end sub

－－－－－－－－－－－－－－－－

我还真的不知道怎么改进了，看看有没有高人可以。

Sub Clear_pics()

Dim Shp As Shape

For Each Shp In ActiveSheet.Shapes

If Not Shp.Type = msoFormControl Then Shp.Delete

Next

End Sub

这段程序加入了对控制按钮的判断，可以避免控制按钮被删除

边学边卖

Sub Clear_pics()

Dim Shp As Shape

For Each Shp In ActiveSheet.Shapes

If Shp.Type = msoPicture Then Shp.Delete

Next

End Sub

如何利用VBA插入图片?

1. Sub InsertPicture()

2. Worksheets(1).Shapes.AddPicture ThisWorkbook.Path True, 30, 10, 300, 225

3. End Sub

\"\\ET.jpg\True, &

4. Sub 插入图片()

5. Worksheets(1).Shapes.AddPicture _

6. \"D:\\2010元旦祝福.JPG\

7. End Sub

Excel-VBA代码：窗代中插入单元格内图片

此代码用来生成图片

Sub SheetOutJpg()

Dim Newshape As Shape

Application.ScreenUpdating = False

[A1].CopyPicture Appearance:=xlScreen, Format:=xlPicture

ActiveSheet.Paste

Set Newshape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)

With ActiveSheet.ChartObjects.Add(1, 1, 1, 1)

.Width = Newshape.Width

.Height = Newshape.Height

Newshape.Copy

.Chart.Paste

.Chart.Export \"C:\\Myjpg.jpg\"

.Delete

End With

Newshape.Delete

End Sub

以下代码用来将图片导入到窗体：

Private Sub UserForm_Initialize()

Call SheetOutJpg

Image1.Picture = LoadPicture(\"C:\\Myjpg.jpg\")

End Sub