☰

Excel VBA: Fill.UserPicture

tag-icon • tag-icon microsoft-excel vba
Excel VBA: Fill.UserPicture

Recebo cell.Comment.ShapeRange...um erro: "Erro de tempo de execução '1004': erro definido pelo aplicativo ou definido pelo objeto". O que está errado com isso?

Cells(cell.Row, 6)é a coluna de referência que contém os URLs das imagens. Por exemplohttp://somelink.com/img.jpg

Sub test()
Dim rng As Range


Set rng = Range("B2:B2331")


For Each cell In rng.Cells
    cell.AddComment
    cell.Comment.Text Text:="Owner:" & Chr(10) & ""
    cell.Comment.ShapeRange.Fill.UserPicture Cells(cell.Row, 6).Value
Next


End Sub

Responder1

Primeiro, .shaperangenão é uma propriedade ou método, commententão você não pode usar isso.

Aqui está um exemplo que funcionaria -

Sub tete()
Dim rng As Range
Set rng = ActiveSheet.Cells(5, 6)
rng.AddComment
rng.Comment.Text Text:="hi"
rng.Comment.Shape.Fill.UserPicture ("C:\Users\path\to\pic.jpg")
End Sub

O que nos leva ao uso .UserPicture()disso requer um caminho como string. Portanto, se o seu caminho estiver nessa célula, certifique-se de obter o valor dele.

Então, se a célula G1 =C:\Users\path\to\pic.jpg

rng.Comment.Shape.Fill.UserPicture (Range("G1"))

podia funcionar.

Esta é uma edição decarimbo históricoisso estou permitindo porque não altera a intenção original da resposta e porque se baseia fortemente nela, pode não funcionar muito bem ou ter visibilidade como uma nova resposta.

Esta versão funcionou no macOS 10.10.5 com Excel 2011.

Sub tete()
' Raystafarian
'    https://superuser.com/a/1011255/2638314

' This is the shortest code I have seen for inserting a picture into
'   a commnet.  & It works.

Dim rng As Range
Dim aPicture As String
Debug.Print "-------------------------- " & Now
aPicture = "Macintosh SSD:Users:mac:Desktop:numbers:1.png"
Set rng = ActiveSheet.Cells(5, 8)
rng.AddComment
rng.Comment.Text Text:=" "
Debug.Print aPicture
rng.Comment.Shape.Fill.UserPicture (aPicture)
End Sub

informação relacionada