求助如何将相片根C2栏姓名而改变！

qinhuan66

求助如何将相片根C2栏姓名而改变！

求助如何将相片根C2栏姓名而改变！.rar (64.47 KB, 下载次数: 55)

2012-7-23 16:33 上传

点击文件名下载附件

gjconan

应该要VBA了吧...

qinhuan66

如果用VAB好像不能套打了

AVEL

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.    If Target.Address <> "$A$2" Then Exit Sub
   
3.    On Error Resume Next
   
4.    Application.EnableEvents = False
   
5.    With Sheet2
   
6.       .Pictures(1).Delete
   
7.       .Range("am2").Select
   
8.       .Pictures.Insert ThisWorkbook.Path & "\照片" & Range("c2") & ".jpg"
   
9.       .Pictures(1).Height = Range("am2").MergeArea.Height
   
10.       .Pictures(1).Width = Range("am2").MergeArea.Width
    
11.    End With
    
12.    Application.EnableEvents = True
    
13. End Sub

复制代码

qinhuan66

AVEL 发表于 2012-7-23 16:59

兄弟我用了你的代码按微调框还是不能改变相片，只能改变姓名

袁勇

在论坛里搜索“引用图片”，有很多很多的方法，公式法，VBA法。可以借鉴、学习。

AVEL

请改变A2单元格、

qinhuan66

AVEL 发表于 2012-7-23 17:17
请改变A2单元格、

A2单元格是根据微调框显示的如果改变了C2等即刻改变成错误值了
按你要求改变了但微调框失去功能

AVEL

qinhuan66 发表于 2012-7-23 17:21
A2单元格是根据微调框显示的如果改变了C2等即刻改变成错误值了
按你要求改变了但微调框失去功能

其实按我理解 根本就不需要微调框。
从第几个打印到第几个 手工填写就OK了。
你说呢。

qinhuan66

AVEL 发表于 2012-7-23 17:27
其实按我理解 根本就不需要微调框。
从第几个打印到第几个 手工填写就OK了。
你说呢。

是哦！我怎么这么死脑筋呢