Inserting image in a particular cell in VBA

Solved/Closed

adikademani - Nov 1, 2016 at 08:52 AM
AdiK - Nov 9, 2016 at 02:44 PM

Hello All,

I wanna insert an image into the Activecell but the image is getting inserted into the same default area. Kindly help me regarding this by checking the code below

Sub pics()

Range("Q1").Activate

ActiveSheet.Pictures.Insert ("E:\personal\adi.jpg")

End Sub

Excel vba insert picture from folder based on cell value
Anvi folder locker reset key - Guide
Number to words in excel without vba - Guide
Based on the values in cells b77:b81, what function can automatically return the value in cell c77? ✓ - Excel Forum
How to insert picture in word without moving text - Guide
Convert picture to shape powerpoint - Guide

3 responses

Answer 1 / 3

TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 552
Nov 1, 2016 at 11:27 AM

Hi adikademani,

To place the image in the active cell instead of Q1 then replace:
Range("Q1").Activate
By:
ActiveCell.Activate

Best regards,
Trowa

Answer 2 / 3

adikademani
Nov 1, 2016 at 11:34 AM

Hi Trowa,

thanks for the quick reply, but the image is still not getting inserted into that particular cell. For example, how do i insert a picture into the Cell Q1 ?

TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 552
Nov 1, 2016 at 11:45 AM

There must be some misunderstanding, because the code you posted does that. Where does the picture go if not Q1?

adikademani > TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022
Nov 2, 2016 at 06:22 AM

Hi Trowa,

Thanks a lott, the issue is solved.
I need some more help with the following. I am trying to insert an image into a particular cell by calling the value stored in the variable via an InputBox. The following code is showing error. Kindly help me. Thank u :)

Sub image()

Dim x As String
x = InputBox("insert image name")

Range("E5").Select

ActiveSheet.Pictures.Insert( _
"G:\PEP\04.Kaizen\KAIZEN Audit\02 Auditfragebögen\5S questionaire\ x "). _
Select

End Sub

Similar discussions

Insert picture in Excel macro which takes the file name refrence

Excel Picture Inserting Macro Help - Urgent

VBA code for Inserting an Image

Inserting image files from a directory specified by text string

adding a loop to macro to insert pictures

Code to move rows into another sheet based on certain values

Similar discussions

Subscribe To Our Newsletter!