[已解决]Evcel图片自动生成

t247703420

兰色幻想 发表于 2012-7-1 11:34
ActiveWorkbook.Path & "\" & range("B2") & "\" & MR.Value & ".jpg"

你QQ可以告诉我吗？运行后图片还是空白的，要不我把附件发给你

兰色幻想

开始就应该传附件，在这里上传吧

兰色幻想

开始就应该传附件，在这里上传吧

t247703420

兰色幻想 发表于 2012-7-1 11:57
开始就应该传附件，在这里上传吧

文件太大，传不了啊

t247703420

t247703420 发表于 2012-7-1 12:00
文件太大，传不了啊

要不发你邮箱？

t247703420

自己建2个文件夹看下

t247703420

kankan                                                                                                            

兰色幻想

显示空白，是你的生成的路径和图片路径不一致，另外把其中一句改一下
    Selction.ShapeRange.Fill.UserPicture _
       ActiveWorkbook.Path & "\" & MX.Value & "\" & MR.Value & ".jpg"

t247703420

照你的改了还是一样哦，显示的图片还是白色的

t247703420

Sub 按照当前行A列的图片名称插入图片到H列()
On Error Resume Next
Shapes.Delete
For aaa = 0 To 10 'Step 2
    Range("H" & (aaa)).Select
    ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Range("B" & aaa) & "\" & Range("A" & Selection.Row) & ".JPG").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 84.75
    Selection.ShapeRange.Width = 150.75
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.ScaleWidth 0.73, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.73, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 5, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.25, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
    Range("A" & aaa).Select
    Next aaa
End Sub
这个好象是你写的哦，那要怎样固定图片大小啊，最好是随图片所在的单元格多少一样