Insert Image - Center & ZoomJan 25, 2007
I have a worksheet (Covers) that is going to be the front and back covers for a binder.
The title/text portion is automatically filled from cells elsewhere in the workbook.
I have a button to bring up a userform that allows one to select the images (3 .jpg images) you wish to use on the cover pages.
I have code that successfully brings up the userform, and allows image selection and preview within the userform.
Now I want to insert these selected images into the worksheet, centered on specified cells and sized (zoom) to a maximum width/height (whichever is reached first).
Can a blank Picture be inserted with its size specified/fixed, then use code (Image1 = LoadPicture?) to change what is displayed?
Or do I have to calculate the size, center it on the page, and insert the image each time?
The code (in part) for the UserForm looks like:
Private Sub SelFcvrImg_Click()
Dim FCpicName As Variant
ChDir ("S:DanBuilder Logos-Photos")
FCpicName = Application. GetOpenFilename(Title:="Select an Image!", _
If FCpicName <> False Then InsertImgForm.FCoverImgPrvw.Picture = LoadPicture(FCpicName)
The UserForm has an Image (preview) with PictureSizeMode set to zoom.
I'm really after the same thing embedded in the sheet...