Inserting Pictures

[Guest]

is it possible to set an area in an excel sheet to receive a pasted picture ?
I want to set an area that will accept a picture from the clipbord but I
want to have a defined size so that the same picture size comes out every
time and I can have text etc on the page in the same place every time

 

[JE McGimpsey]

There's no built-in way to do this. You could easily use a macro:

Public Sub SetPicture()
Const cnMAXHEIGHT As Long = 250
Const cnMAXWIDTH As Long = 200
Dim rTopLeft As Range
Dim dScale As Double
If TypeOf Selection Is Picture Then
With Selection
Set rTopLeft = .Parent.Range("F2")
.Top = rTopLeft.Top
.Left = rTopLeft.Left
dScale = Application.Min( _
cnMAXWIDTH / .Width, cnMAXHEIGHT / .Height)
With .ShapeRange
.ScaleWidth dScale, False, msoScaleFromTopLeft
.ScaleHeight dScale, False, msoScaleFromTopLeft
End With
End With
Else
MsgBox "Please select a picture"
End If
End Sub

 

[Guest]

Thanks for that. I'll give it a go later

There's no built-in way to do this. You could easily use a macro:

Public Sub SetPicture()
Const cnMAXHEIGHT As Long = 250
Const cnMAXWIDTH As Long = 200
Dim rTopLeft As Range
Dim dScale As Double
If TypeOf Selection Is Picture Then
With Selection
Set rTopLeft = .Parent.Range("F2")
.Top = rTopLeft.Top
.Left = rTopLeft.Left
dScale = Application.Min( _
cnMAXWIDTH / .Width, cnMAXHEIGHT / .Height)
With .ShapeRange
.ScaleWidth dScale, False, msoScaleFromTopLeft
.ScaleHeight dScale, False, msoScaleFromTopLeft
End With
End With
Else
MsgBox "Please select a picture"
End If
End Sub