excel如何批量导出图片并按指定列命名

LXJ275112188

请问各位大神：

excel里面的图片，每张图片对应一个编码；如何自动导出excel中全部的图片，并按对应行的K列编码命名。例如：第一行第一张图片为“跑步主画面背心何引丽    .jpg”，第二张图片为“跑步组合框背心何引丽.jpg”，以此类推。

感谢各位大神的指教，谢谢！

qazwsxedc123!

做了一个按钮，一键提取。文件下载后先解压，提取的目标位置就是解压后EXCEL文件的位置~右边评分2朵花哦·~~~

LXJ275112188

请问下面这段代码如何调整成保持图片原有宽高
Sub lqxs()
Dim strPath$, nm$, sh As Shape
    Dim ch As Chart, i&
    Dim cht As ChartObject
    Application.ScreenUpdating = False
    strPath = ThisWorkbook.Path & "\"
    For i = 1 To ActiveSheet.Shapes.Count
        Set sh = ActiveSheet.Shapes(i)
        nm = Range(sh.TopLeftCell.Address).Offset(0, -1).Value
        If nm = "" Then GoTo 100
        sh.CopyPicture
        Set cht = ActiveSheet.ChartObjects.Add(100, 100, 200, 200)
        With cht
            .Chart.Paste
            .Chart.Shapes(1).Height = 200
            .Chart.Shapes(1).Width = 200
            .Chart.Export strPath & nm & ".jpg"
            .Delete
        End With
100:
    Next
    Application.ScreenUpdating = True
End Sub

sos2008kiss

就是图片不清晰，能清晰点就好了

li9068

qazwsxedc123! 发表于 2020-6-24 16:53
做了一个按钮，一键提取。文件下载后先解压，提取的目标位置就是解压后EXCEL文件的位置~右边评分2朵花哦·~ ...

强