按数据显示图片

徐海洋

请老师指教，怎样做成图片上的样子，谢谢，！！！



按数据显示图片.7z (1.28 MB, 下载次数: 8)

2024-5-25 09:34 上传

点击文件名下载附件

wang-way

论坛里肯定有很多这种例子，搜一下，立马就可以解决

3190496160

Sub 提取数据和插入图片()
Application.ScreenUpdating = False
lj = ThisWorkbook.path & "\图片\"
With ActiveSheet
    For Each shp In .Shapes
        If shp.TopLeftCell.Row > 1 Then
            shp.Delete
        End If
    Next shp
    .[a1].CurrentRegion.Offset(1) = Empty
    f = Dir(lj & "*.jpg")
    n = 1
    Do While f <> ""
        n = n + 1
        zd = Split(f, ".")(0)
        .Cells(n, 1) = Right(zd, 6)
        .Cells(n, 2) = Left(zd, Len(zd) - 6)
        .Cells(n, 3).Select
        .Pictures.Insert(lj & f).Select
       With Selection.ShapeRange
         Selection.ShapeRange.LockAspectRatio = msoFalse
            .Top = Cells(n, 3).Top + 1
            .Left = Cells(n, 3).Left + 1
            .Width = Cells(n, 3).Width
            .Height = Cells(n, 3).Height
        End With
    f = Dir
    Loop
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

按数据显示图片.rar (700.44 KB, 下载次数: 16)

2024-5-25 10:10 上传

点击文件名下载附件

Qs18

Sub getpicname()
Call 删除图片
Dim path As String
path = ThisWorkbook.path & "\图片\"
Dim shp As Shape
With Sheet1

For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
t = Range("a" & i) & ".jpg"
Set shp = Sheet1.Shapes.AddPicture(path & t, msoFalse, msoCTrue, Range("c" & i).Left, Range("c" & i).Top, Range("c" & i).Width, Range("c" & i).Height)
shp.Placement = xlMoveAndSize

Next
End With

End Sub

Sub 删除图片()
Dim shp As Shape
For Each shp In Sheet1.Shapes
    If shp.Type = 1 Or shp.Type = 13 Then
        shp.Delete
    End If
Next
End Sub

Sub 清除()
Sheet1.Range("a2:c10000").ClearContents
Call 删除图片
End Sub

徐海洋

3190496160 发表于 2024-5-25 10:11

谢谢高师，删除A，B列，图片删不了，图片不能随拖动单元格大小而变化，请高师指教

3190496160

徐海洋 发表于 2024-5-25 11:16
谢谢高师，删除A，B列，图片删不了，图片不能随拖动单元格大小而变化，请高师指教

呵呵，是不需要你去手工删除的，每次运行代码，代码自动删除数据和图片再写入新的数据，拆入新的图片

徐海洋

Qs18 发表于 2024-5-25 10:31
Sub getpicname()
Call 删除图片
Dim path As String

高师，这怎么用啊？我是小白

Qs18

徐海洋 发表于 2024-5-25 12:50
高师，这怎么用啊？我是小白

是这样的吗？