Kutools no importa las imagenes alojadas en Drive. Como hago?

hey! with the Help of the Vba Code the Image has been extracted to the sheet but as i am moving my workbooks location the Image are Corrupted so help me here

working perfect
thanks a lot

if the url is in https, for sure there is no way to work around it?

Hello I'm here asking for your help. My research ended up in 2 different macros that combined will give a good utility for my work.
1. Will insert image as comment, 2. Will fetch Hyperlinks(Local folder path only, not web based URL) and paste them in destination cell
I really tried to combine them to do one job, but I guess I don’t have enough knowledge on this.
I need the images to be inserted as comment as the 1st code does to the destination range user selects.

Sub InsertPictureAsComment()
Dim PicturePath As String
Dim CommentBox As Comment
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.title = "Select Comment Image"
.ButtonName = "Insert Image"
.Filters.clear
.Filters.Add "Images", "*.png; *.jpg"
.Show
'Store Selected File Path
On Error GoTo UserCancelled
PicturePath = .SelectedItems(1)
On Error GoTo 0
End With
'Clear Any Existing Comment
Application.ActiveCell.ClearComments
'Create a New Cell Comment
Set CommentBox = Application.ActiveCell.AddComment
'Remove Any Default Comment Text
CommentBox.Text Text:=""
'Insert The Image and Resize
CommentBox.Shape.Fill.UserPicture (PicturePath)
CommentBox.Shape.ScaleHeight 6, msoFalse, msoScaleFormTopLeft
CommentBox.Shape.ScaleWidth 4.8, msoFalse, msoScaleFromTopLeft
'Ensure Comment is Hidden (Swith to TRUE if you want visible)
CommentBox.Visible = False
Exit Sub
'ERROR HANDLERS
UserCancelled:
MsgBox "Done"
End Sub

Sub URLToCellPictureInsert()
'Updateby Extendoffice 20180608
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Set Rng = Application.InputBox("Please select the url cells:", "KuTools for excel", Selection.Address, , , , , 8)
If Rng Is Nothing Then Exit Sub
Set xRg = Application.InputBox("Please select a cell to put the image as comment:", "KuTools for excel", , , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To Rng.Count
filenam = Rng(i)
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = xRg.Offset(i - 1, 0)
With Pshp
.LockAspectRatio = msoFalse
.Width = 80
.Height = 80
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

Hello

I try to get 33 images from URL but only gives me 1, all URL paths to the images are correct... what can that be?

Hi,

I have pictures with different resolutions. What should I write in height and width to keep the proportion of images?

Hi all, This Macro is great. However, it does not really add pictures to the file but links that generate pictures each time I open the file. Thus I cannot compress pictures as they are not really inside the file. Could you please help me to really save pictures inside the file?

Hi skyyang, first for such an informative post. I have a question, could you please help me. Using this code of your's I want to extract just one pic and want to place it in a specific cell. Is it possible??

I'm using an Intel I5 processor, windows 7 professional 64bit, Office 2016 64 bit. I assume that the problem is a setting in Excel. Any help would be greatly appreciated.
range is set, filenam = url and changes with each pass, Pshp is always nothing, URL's are verified, Any Ideas

range is set, filenam = url and changes with each pass, Pshp is always nothing. Any Ideas

Thanks for your post. How I can get the pictures in the center of the cell. With the current codes the pictures are showing in the top left corner

Works great for pulling images, but they are put randomly and not in the expected cells... Excel 2016 from Office365...

Hi guys,
It would love to get this working but when I copy this in VBA & click on run I only get this text:
Sub URLPictureInsert()
Can you please help me to get the picture thumbnail?

Is there any way to run this so that it is across a row instead of a column? I have tried simply changing the range and the final location of the image but it only ever produces the first cell.

To get this to work in Excel 2010 I had to add these declarations.


Dim Rng As Range
Dim cell As Range
Dim filenam As String

In Excel 2010 I had to add these declarations

Dim Rng As Range
Dim cell As Range
Dim filenam As String

Works perfectly but can anyone help me add something to check if the image exists and if it doesn't, post a text in the cell like "Image unavailable" ??

For me, all that shows up in each cell is the name of the method. They all say "Sub URLPictureInsert()"

AMAZING! this is so great! i had 350 rows of hyperlink and it took only 5 mins to pull all images!

Hi everyone, I have modified these code so that it works for the selected range instead of entering the specific range, However, can anyone suggest me how to modify these code to have the image in the centre of the cell. Currently the image is showing in the top left corner

Sub URLPictureInsert()

Dim Pshp As Shape

Dim rCell As Range

On Error Resume Next

Application.ScreenUpdating = False

For Each rCell In Selection

filenam = rCell ActiveSheet.Pictures.Insert(filenam).Select

Set Pshp = Selection.ShapeRange.Item(1)

With Pshp

.LockAspectRatio = msoTrue

.Width = 100

.Height = 100

.Cut

End With

Cells(rCell.Row, rCell.Column + 1).PasteSpecial

Next Application.ScreenUpdating = True

End Sub

Thank you. It worked for me

How do i change/modify the syntax to display image url's that are password protected

Run-time error '1004':
Unable to get the insert property of the Pictures class

What issue are you getting?

I have tried the formula, but it does not seem to work. Would it have to do something with the version of Excel (I have the newest version, though)

I appreciate your answer

This was a great help, ty so much

Could you change the "on error resume next" to something that will wait until Google Chrome has time to open the picture? I tried this code and it works, but some of the pictures are getting pasted several rows below where they should, so I'm assuming the "on error" statement is not giving it enough time. If you think it could be something else or have any other suggestions, I'm open to hear it. Thanks!