[已解决]菜鸟寻求帮忙改代码！

hwc2ycy

在03里测式自适应高度又发现一个问题。图片删除后，行高没变，原有的小图一旦插入进来，反倒尺寸比例又不对了。重新改了下，在删除图片对象后，自动把行高复位。

1. Private Sub CommandButton1_Click()
   
2.     Dim oShp As Shape
   
3.     Dim rng As Range, sPic As String
   
4.     Application.ScreenUpdating = False
   
5.     For Each oShp In Shapes
   
6.         With oShp
   
7.             If .Name Like "*Picture*" Or .Name Like "*图片*" Then .Delete
   
8.         End With
   
9.     Next
   
10.     Range("a2:a" & [a65536].End(xlUp).Row).RowHeight = Range("a1").RowHeight
    
11.     For Each rng In Range("a2:a" & [a65536].End(xlUp).Row)
    
12.         sPic = ThisWorkbook.Path & "" & rng & ".jpg"
    
13.         If Dir(sPic) <> "" Then
    
14.             Pictures.Insert(sPic).Select
    
15.             'Selection.ShapeRange.LockAspectRatio = msoFalse
    
16.             With rng
    
17.                
    
18.                 Selection.Left = .Offset(0, 3).Left + 2
    
19.                 Selection.Top = .Offset(0, 3).Top + 2
    
20.                 Selection.Height = .Offset(0, 3).Height
    
21.                 Selection.Width = .Offset(0, 3).Width - 2
    
22.                 .RowHeight = Selection.Height + 2
    
23.             End With
    
24.         End If
    
25.     Next
    
26.     Application.ScreenUpdating = True
    
27.     [d1].Select
    
28. End Sub

复制代码

hhss123

老大最终确定是10楼的代码吗！

hwc2ycy

hhss123 发表于 2012-10-21 14:56
老大最终确定是10楼的代码吗！

11楼的吧。越是后面贴的，就越好点。

hhss123

老大你看下！这个是用11楼是代码！10版里使用情况！A情况

hhss123

老大你看下！这个是用11楼是代码！10版里使用情况！B情况

hhss123

10中使用的情况请看

hhss123

用的是11楼的代码！使用其来当删选数字列！条件大于或等于3时！图片就显示不对了
有些是图片重叠的  有些是没有正确归位！

hhss123

代码要怎么改呀！

hhss123

老大看下！是不是代码又要改呀！还是我弄错了

hwc2ycy

这个把图片的属性设置下应该就可以了。
在代码 Pictures.Insert(sPic).Select
下加一行

1. Selection.Placement = xlMoveAndSize

复制代码

试试