[已解决]根据数据在特定位置自动引用制定文件夹内的图片

hwc2ycy

因为用的是CHANGE事件嘛。

hwc2ycy

我测试下。

hwc2ycy

我后来贴的新代码，就可以预防了，你用新代码，把原来换掉。

tianjieha

hwc2ycy 发表于 2012-12-5 12:10
我后来贴的新代码，就可以预防了，你用新代码，把原来换掉。

真的可以了 谢谢  我还想请教 这个怎么试下批量输出打印啊  我实在是菜鸟

hwc2ycy

可以选中行的时候就打印的。

tianjieha

hwc2ycy 发表于 2012-12-5 13:00
可以选中行的时候就打印的。

这个我倒是知道 怎么实现一键打印整个数据表啊

tianjieha

就是把表一里面所有的数据生成准考证 依次打印出来

hwc2ycy

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim Path$, filename$
   
3.     On Error Resume Next
   
4.     If Targetrow < 5000 And Target.Column < 2 Then
   
5.         Range("T2") = Cells(Target.Row, Target.Column)
   
6.     End If
   
7.     Worksheets("准考证").DrawingObjects.Delete
   
8.    
   
9.     Path = ThisWorkbook.Path & "\pic" & [t2] & ".jpg"
   
10.     filename = Dir(Path, vbNormal + vbDirectory + vbHidden + vbReadOnly + vbSystem)
    
11.     If Len(filename) > 0 Then
    
12.         With Worksheets("准考证")
    
13.            With .Pictures.Insert(Path)
    
14.               .ShapeRange.Left = 340
    
15.             .ShapeRange.Top = 80
    
16.             .ShapeRange.Height = 140
    
17.             .ShapeRange.Width = 110
    
18.            End With
    
19.            With .Pictures.Insert(Path)
    
20.           .ShapeRange.Left = 340
    
21.             .ShapeRange.Top = 465
    
22.             .ShapeRange.Height = 140
    
23.             .ShapeRange.Width = 110
    
24.            End With
    
25.            .PrintPreview
    
26.            If MsgBox("确定要打印吗？", vbOKCancel, "打印") = 1 Then .PrintOut: DoEvents
    
27.            
    
28.        End With
    
29.     End If
    
30. End Sub
    

复制代码

原来的改进版，点的时候可以选。呆会再帮你做一个批量打印。

hwc2ycy

也可以先出一个打印预览，再选择是否打印。

tianjieha

hwc2ycy 发表于 2012-12-5 13:26
原来的改进版，点的时候可以选。呆会再帮你做一个批量打印。

感谢老大 敬仰啊