Trying to Add three pictures to a defined cell

[carrguy01]

I am not sure if i even got the right area on here yet! I am new but I am a quick learner so bear with me. I want to make a feature sheet that I will be changing on a regular basis. I want two different pictures to be located in the top right and top left of my page. The size of the original pictures very. So I need something that will resize them to make it uniformed. They can be in one cell or even merged cells that part does not bother me. The picture size has to be the same I am looking for 1.5 inch by 1.5 inch. <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
I then want to put a picture of a house that will be changing all the time but the size I want to remain the same and that is 4 inch wide 2 inch tall. <o></o>
<o> </o>
Any help would be great. I am not sure if I need to put my email or not but here it is markcarr01@sympatico.ca<o></o>
<o></o>

 

[VoG]

Maybe you can adapt this. It inserts a picture to fit inside a cell

Sub piccy()
ActiveSheet.Pictures.Insert ("C:\example\pic.jpg")
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    .LockAspectRatio = False
    .Top = Range("C3").Top
    .Left = Range("C3").Left
    .Height = Range("C3").RowHeight
    .Width = Range("C3").Width
End With
End Sub

 

[carrguy01]

can you give me a step by step on how to run this! very brief i never used this kinda stuff before

 

[VoG]

Press ALT + F11 to open the Visual Basic Editor, select Module from the Insert menu and paste the code into the white space on the right. Change this

C:\example\pic.jpg

to the path and name on your hard drive. Press ALT + Q.

Press ALT + F8, click on piccy then click the Run button.

 

[carrguy01]

Thanks that worked great. I am trying to add to that fourmula to put a picture in Cell M3. And also also in k15. Can you show me how to add these pictures I have tried a few things but no luck

 

[VoG]

You would basically need to repeat the code, between Sub and End Sub, changing the path to the picture and the cell.

 

[carrguy01]

This is what i have done. I get a a compile unexpected end with


Sub piccy()
ActiveSheet.Pictures.Insert ("C:\Users\Public\Pictures\work\85938.jpg")
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
.LockAspectRatio = False
.Top = Range("c3").Top
.Left = Range("c3").Left
.Height = Range("c3").RowHeight
.Width = Range("c3").Width
ActiveSheet.Pictures.Insert ("C:\Users\Public\Pictures\work\85938.jpg")
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
.LockAspectRatio = False
.Top = Range("f3").Top
.Left = Range("f3").Left
.Height = Range("f3").RowHeight
.Width = Range("f3").Width
End With
End Sub

 

[VoG]

Try

Sub piccy()
ActiveSheet.Pictures.Insert ("C:\Users\Public\Pictures\work\85938.jpg")
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    .LockAspectRatio = False
    .Top = Range("c3").Top
    .Left = Range("c3").Left
    .Height = Range("c3").RowHeight
    .Width = Range("c3").Width
End With
ActiveSheet.Pictures.Insert ("C:\Users\Public\Pictures\work\85938.jpg")
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    .LockAspectRatio = False
    .Top = Range("f3").Top
    .Left = Range("f3").Left
    .Height = Range("f3").RowHeight
    .Width = Range("f3").Width
End With
End Sub

 

[carrguy01]

Thanks big guy i got it working. I may have another question later

 

[carrguy01]

i have the above program working! but ran into some cell issue when i make the picture i want it does not let me do smaller cells to the right of the picture. Can i for example use the same kind of formula say from b2 to e2 wide and b2 to f5 high. So i can use the the cells next to the picture for math formuls?