I found this code on the web that I wanted to use to fit a picture into a cell. However, it sizes the picture proportionaly, and not to the cell size. How to get it to fit to the cell size.
(Also, how I can properly post code in a message. I read the user guide to the forum and it mentioned BB Tags, but I couldn't see what I need to do).
Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
What I am trying to do is to give the user the ability to insert a photo and have it autosize into a range of cells--so far I can only get it to work with a single cell and a predefined file. Can this be refined so that rng references a group of cells and pic somehow lets the user input a file name or pick its name and location?
Sub test() On Error Resume Next Set pic = ActiveSheet.Pictures.Insert("C: ange.gif") On Error Goto 0 If Not pic Is Nothing Then 'Found it!' Set rng = ActiveCell With pic .Height = rng.Height .Width = rng.Width .Left = rng.Left .Top = rng.Top End With End If End Sub
I am putting together a price list in excel and using images and hyperlinks to jazz it up a bit - what I am finding is that if I insert a 25KB GIF image, the excel file grows in size by over 100KB
why is this disproportionate growth happening and is there a way around it - I dont want my Price List growing too large but need the images....?
open the attachment & click the button. I'd like you to please help me in reducing both the height & width of the picture. So that when the button is clicked the pic. overall size will appear smaller.
How do you convert all the picture files in a worksheet so they can be processed the same? Half my pictures have eight white adjustment circles framing them when they are selected, the other half have four blue circles and four blue squares.
I Have Inspection Reports To Do And They Come In With One Big Text Srting I Haveused Formuee To Seperate Them And A Macro To Put Them On Seperate Sheets.but...
I Want To Insert A Picture (for More Indepth Reports) Rather Than Inserting A Picture Can I Do A Macro That When It Is Run It Opens Up A Browser, Similar To The One In Insert Picture And Then Insert A Picture After The Bottom Cell And Resize It So It Will Be The Same Every Time? But At The Bottom Of The Last Line Of Data.
At the moment I have two macros. One loads up a background picture into my work sheet when I start it up, the other two are called ‘StartBlinking’ and ‘StopBlinking’.
This is the macro code I have to load up the picture:
I have done the above where when I select a picture name from a drop down list it displays the relevant picture in another cell by using the IF function in the named formula
My question is why cant I use VLOOKUP instead of IF in the named formula. When I use it it comes with an error.
i have saved some pictures in my excel sheet. in the next sheet i want that when i write the picture name the picture will appear as vlookup helps in the getting text and nos. can i do this with pictures or i tried to get to much from excel.
I got this code from someone who is not currently available, I modified it a little so that when I pick a picture it always lands on j96, but I need it to line up exactly on top of the picture underneath it I have also attached a sample. The pictures will always be exactly the same size
I have used the following code behind a projects Command button for some time, and works well in Excel 2002/2003. It's used to look for and insert a Picture file, located on the users PC, select cell C2, re-size it to fit inside a bordered cell area and then nudge it over, off the border line.
Sub Load_Image() Dim oPict, PictObj Dim sImgFileFormat As String 'Open file GetPict: oPict = Application.GetOpenFilename("All Pictures (*.tif; *.bmp; *.jpg; *.gif; *.jpeg; *.png; *.cpt; *.tiff),*.tif; *.bmp; *.jpg; *.gif; *.jpeg; *.png; *.cpt; *.tiff") If oPict = False Then End Range("C2").Select Set PictObj = ActiveSheet.Pictures.Insert(oPict) With PictObj .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Width = 712# .ShapeRange.Height = 510# End With PictObj.Select With PictObj Selection.ShapeRange.IncrementLeft 1# Selection.ShapeRange.IncrementTop 1# End With Range("A1").Select
End Sub
Unfortunately, Excel 2007 doesn't seem to identify the Cell reference "C2". It modifies the Picture size OK but does not position the picture in the correct position. I've tried re-recording it but 2007 misses most of actions.??? Despite my efforts looking on other forums, I don't seem to find a code that works on both version of Excel.
I have found the code below that is very good and changes the case size to Upper, Proper or Lower. The problem is that when I select a cell, range of cells, column or row it changes the entire sheet instead of the selected range.
Code: Sub CaseSize() Dim myCase, rng As Range, r As Range myCase = Application.InputBox("Enter" & vbLf & "1 for Upper Case" & vbLf & _ "2 for Lower Case" & vbLf & "3 for Proper Case", Type:=1) If (myCase = False) + (Not myCase Like "[1-3]") Then Exit Sub On Error Resume Next
So far my VBA will copy my range of cells in Excel and paste them into Powerpoint but I'm totally stuck as to how to resize the image from there. I've tried a bunch of different methods and I get some pretty crazy results but can't seem to punch through to a solution. What I'd like it to do, at the end of the VBA is:
Set the lock aspect ratio to false Set the Height to 5.5" Set the Width to 9.83" Set the horizontal position to .08 from Top Left Set the Vertical position to .58 from Top Left
I cannot seem to get my save as portion to work at all. I commented it out at the bottom. This is all in Excel and PPT 2007.
Here is what I have so far:
Sub Export_Excel_to_PowerPoint()
Dim ppApp As PowerPoint.Application Dim ppSlide As PowerPoint.Slide On Error Resume Next Set ppApp = GetObject(, "PowerPoint.Application") On Error GoTo 0
[Code]...
Ultimately the behavior I'm looking for with this macro is to copy a filtered range of cells from Excel and paste it as a picture into Powerpoint (up til this point I'm golden) then resize the image on the slide, save the presentation, then exit PPT.
c)Also there are many formulas in the workbook that needs to be updated as well.
if i do it manualy i takes more time.......for opening and refreshing and i could see status bar running for excel calculation for updating all forumulas.
In Excel 2010, is there any way to paste a picture into a small picture/diagram box, and upon double clicking the picture it would explode to a larger size? And I guess double clicking it again would make it return to its original (smaller) size. I would be pasting several pictures into several different picture/diagram boxes and would need this to be a relative reference so that upon selection it explodes the appropriate picture?
I want to have a sample file in excel which store picture of student in comment, I did this, but when I want to insert picture the file dialog appears, and if I click cancel, then there is an error, why? If some one optimise the code it would be very nice
I have recorded a macro for inserting, sizing and positioning a product photo into a report. The photo file is in a directory containing many files. Filenames are alpha numeric codes with a .jpg extensions. I wish to be able to enter a different code into a spreadsheet cell which will be named and let the macro insert the proper photo from the files in the subdirectory.
Here is the code which was recorded and which brings up the photo for file "HGGA134.jpg ".
Range("B10").Select ActiveSheet.Pictures.Insert( _ "C:Documents and SettingsRichard WrightDesktopNUEVOProduct PhotosHGGA134.jpg" _ ).Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 195# Selection.ShapeRange.Width = 180# Selection.ShapeRange.Rotation = 0# End Sub
I need a way to change the "HGGA134" part of the code by having it reference a named cell in the report.
Excel 2010. I need to place picture into one cell or one big merged cell, as a background fill. picture must resize to size of cell. must be fixed in, not in front. i still need write into that cell, so it needs to be really background.
The idea is to center an image in the middle of a cell where the cell's size is variable. This shall be done for a column of images if a certain cell in the same row contains content different from 0. If not the image shall be invisible.
Sub Center()Dim Position As Integer Dim Picture As Integer Picture = 6 For Position = 7 To 320If Sheets("List of Measures").Cells(Position, 2).Value
[Code] ......
Run-time error 1004: Application-defined or object-defined error?
i need to have a way to link a small picture/thumbnail to a cell. so that there is a way to preveiw it. Ideally like what happens with the comments where you hover over the cell and the comment would pop up. or failing that may be a cell linking to the image.
I have a workbook that has 32 pictures identically formatted. I used info from McGimpsey website for displaying a picture base on a cell value which works fine but I need that same picture to display in a few other cells. Is this possible?
I have two images that have a name on each sheet for reference. One is a thumbs up image, one is a thumbs down. They are both named tu_image and td_image respectively. I want to show the thumbs up image if a particular cell has a value of 10 and show the thumbs down image if that cell's value is < 10.
This check and display needs to be done about 20 times on different sheets and with different values. (i.e. Thumbs down should only show when the value is < 20, instead of 10.) Ideally this should take place when the workbook updates with new data. Is this possible?
