删除指定区域图片却报错

□智□

那就帮不上忙了，在我这里正常，你还是看看蓝老师有没有时间吧
对了，你代码里是不是应该加一句Public My As Worksheet

a370616583

□智□ 发表于 2014-11-28 10:52
那就帮不上忙了，在我这里正常，你还是看看蓝老师有没有时间吧

你在我提供的表试了没问题？

wj2368

这样试试

1. Sub picture()
   
2. Dim p As Shape
   
3. With Worksheets("样品卡")
   
4. For Each p In .Shapes
   
5. If Not Application.Intersect(p.TopLeftCell, .Range("H4:H16")) Is Nothing Then p.delete
   
6. Next
   
7. End With
   
8. End Sub
   

复制代码

a370616583

wj2368 发表于 2014-11-28 10:54
这样试试

非常非常非常的感谢！好了！！！能不能告诉我这是什么原因

□智□

我觉得就是差这句，Public My As Worksheet，但是错误提示不一样

a370616583

□智□ 发表于 2014-11-28 11:05
我觉得就是差这句，Public My As Worksheet，但是错误提示不一样

我想再问问，下面这个代码怎么调整图片大小。能调整至单元格大小更好

1. With ActiveSheet.Pictures.Insert(filename)
   
2.             .Top = Selection.Top + 15
   
3.            .Left = Selection.Left
   
4.            .ShapeRange.LockAspectRatio = msoTrue
   
5.            .ShapeRange.Width = Selection.Width
   
6.             .ShapeRange.Height = Selection.Height - 15
   
7.         End With

复制代码

□智□

        .Left = Selection.Left
        .Top = Selection.Top
        .Width = Selection.Width
        .Height  = Selection.Height

a370616583

.ShapeRange.Left = Range("X6").Left
            .ShapeRange.Top = Range("X6").Top
            .ShapeRange.Height = Range("X6:X13").Height
            .ShapeRange.Width = Range("X6:AA6").Width

高度写了到X13。可是只显示到X10...是为何

□智□

你的图片原始宽高比是多少？调整图片大小之前加一句
.ShapeRange.LockAspectRatio = msoFalse

a370616583

□智□ 发表于 2014-11-28 12:55
你的图片原始宽高比是多少？调整图片大小之前加一句
.ShapeRange.LockAspectRatio = msoFalse

可以了。刚我写成msoTure了。谢谢～