autosize a picture to a cell

R

Ron de Bruin

Hi

This will add a picture in the activecell
Post back with more text<g> if you need something else

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

Similar Threads

Putting 2 command buttons into 1 cell 2
Loop through pages and insert header image 0
Looping to insert photo 8
image insertion 1
Adding a checkbox in a row every time a user enters data in the first column of that row 5
Macro works, but only if you 'step' through it - Word 2000 2
image insertion height problem 2
Copy filtered data to sheet 2 1

Top