Excel Forum

Code: Select all

Public Sub addPictures()
    Dim c As Range ' current cell object
    Dim img_url As String
    
    Application.ScreenUpdating = False
    
    For Each c In Selection
    c.Value="Z:\PicturesY\" & c & ".jpg"
        addPictureUrlG a_cell:=c, img_url:=c.Value, row_offset:=0, col_offset:=0
    Next
    Application.ScreenUpdating = True
End Sub

Code: Select all

Public Sub addPictures()
    ' how to run: select a range contains image urls and run this macro
    ' add multiple pictures using values from selected range and place picture in the right column of selected range
    ' addPictures rngInput:=Selection, row_offset:=0, col_offset:=1
    Dim c As Range ' current cell object
    Dim img_url As String
    
    Application.ScreenUpdating = False
' ปรับความกว้างcolด้านขวา
'    Selection.Offset(0, 1).ColumnWidth = 18
    
    For Each c In Selection
        c.Value="D:\test_ali\picture\" &c& ".jpg"           ''' ต้องการเปลี่ยนค่า C เป็น D:\test_ali\picture\47122.jpg
'        DeleteShape MsoShapeType.msoPicture, c.Offset(0, 1)
        addPictureUrl a_cell:=c, img_url:=c.Value, row_offset:=0, col_offset:=2   ''' วางรูปในคอลัม c
'(ต่างที่col_offset:=0)วางรูปในช่องตัวเองเลย
'        addPictureUrl a_cell:=c, img_url:=c.Value, row_offset:=0, col_offset:=0
    Next
    Application.ScreenUpdating = True
End Sub