Question

Excel VBA，VBA程序代码改变图片内容

领导签字图片随机生成。核心的代码不会写，这是一个VBA程序问题。
假如现在有两幅不同图片，图片1，图片2，要求用VBA代码改变图片1的内容为图片
看清问题了噢，只求一行VBA程序代码，其他说再多是没用的~
可能我没有描述清楚噢，图片1，图片2是已经存在Excel的页面中的，而不是文件夹下的。

Answer 1

Dim rndNum As Integer ’定义随机数
Randomize'随机
rndNum = Int(Rnd() * 19 + 1)'如果有19幅图片，从1到19随机。
Image1.Picture = LoadPicture("C:\图片" & rndNum & ".jpg")
'追加
'For Each shp In Sheets(1).Shapes
' If shp.Name = "Picture 1" Then
' shp.CopyPicture xlScreen, xlBitmap
' Sheets(2).Paste
' Exit For
' End If
'Next'导入的图片Shape.Name按照顺序叫做Picture 1，Picture 2……
'你可以shp.Copy,Sheet2.Paste

网上资料，Shapes 的图片 转换到 image控件

在excel图片发布都是使用了图表的Export方法,image控件也是使用loadpicture方法,所以我只会用硬盘中转的办法,API我不熟悉,也很少用.正要向你和用兄学习呢,八月应该是一个API行家,可以让他来看看.
Sub 加载图片()
SheetOutJpg
Sheet1.Image1.Picture = LoadPicture("d:/Myjpg.JPG")
Kill "d:/Myjpg.JPG"
End Sub

Sub SheetOutJpg()
Dim Newshape As Shape
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
.Chart.Export "d:/Myjpg.jpg"
.Delete
End With
Set Newshape = Nothing
End Sub

追问

太多了，看得我眼花了。就要像楼下那位说的就可以了，
Image1.Picture = Image2.Picture
就是要这个意思，可惜这句代码是错的，执行不出来。