how to insert picture to the cell?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Can someone help me? I am trying to embed a picture within a cell, not copy
and paste or insert picture, I want to be able to see the image in a cell
not
outide the grid.

and if it's possible
 
Hi Johney

Try this to insert into the activecell

Sub test()
On Error Resume Next
Set pic = ActiveSheet.Pictures.Insert("C:\range.gif")
On Error GoTo 0
If Not pic Is Nothing Then 'The picture exists
Set rng = ActiveCell
With pic
.Height = rng.Height
.Width = rng.Width
.Left = rng.Left
.Top = rng.Top
End With
End If
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top