excel如何插入图片

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

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

參考一下....

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

        .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.

3.End Sub

4.Sub 插入图片()

5.    Worksheets(1).Shapes.AddPicture _

6.     "D:\\2010元旦祝福.JPG", True, True, 30, 10, 300, 350

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

         .Delete

     End With

     Newshape.Delete

End Sub

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

Private Sub UserForm_Initialize()

 Call SheetOutJpg

End Sub