I'm trying to copy a picture from one Worksheet to another and then resize it, when i select the picture after pasting it into the other worksheet i use the code ActiveSheet.Shapes("Picture 6").Select, the problem here is that i don't know the name of the picture because i use a loop that copys alot of pictures.
View 3 Replies1.My macro code to insert picture from C:pictures to worksheet in colum B,but the insert pictue are very big. how can it is automatic resize with autofit in the height of the column B when i click the insert button.
2.I need some code for the delete button. if I need to delete some picture,when the delete button is clicked , the input box prompt for key in the picture name to delete. if i key in the pictue name , eg.pictue2 , so the name of pictue2 in the column A and the pictue2 in the column B is deleted.
I have a sheet where I would like to have a picture inserted in a particular cell range and auto resized into that range. What I'm looking for is, if I type the name of a picture (meathead4uu.jpg) in a cell (Say, B3) then the picture should appear in range D14 to E28.
View 9 Replies View Relatedopen 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.
View 9 Replies View RelatedI have a picture on my image at userform. And I want to change my picture size ( like attached picture: fast image resizer program ) and save as different location. It is my school project.
Your valuable macro codes about ıf this and attached workbooks are very important for me.
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.
I need to start with a worksheet without any objects, namely pictures. Without knowing the name of the object, is there a way to clear all objects on a worksheet?
Second: on a different worksheet there are products with pictures with the product number. When a user selects the product number I want to copy that picture and copy it to J42 of the first sheet. My issue is positioning the picture.
I have a NAMED RANGE of data consisting of 4 columns and as many rows as is selected. Name it CompTable1.
I loop through all of the 4 columns of data to format it (as shown below). This snippet is for column 1 of CompTable1 (a public variable as string) and I basically have the same situation for each column of 4 but replacing each respective x in cells.(n,X) & offset(0,-x) to take into account of where I wish the data to go as I loop through. Ultimately 4 (For Next) loops.
[Code] ......
The new range with 5 columns is as follows:
Column 1 from CompTable1 = Column 1 of new range
Column 2 of new range is blank for something later
Column 2 from CompTable1 = Column 3 of new range
Column 3 from CompTable1 = Column 4 of new range
Column 4 from CompTable1 is not used in the new range but is formatted
Column 5 of new range is blank for something later
This certainly works very well and with my amateur VBA status am quite proud of how far I have come in a few months. Is it efficient? Is it free of possible errors? Likely not. I wish to rid myself of the "Select" each cell plaque though maybe using a resize, offset or copy destination operation but can't seem to get it working. Once I do get the data in the new range, I format everything without selecting quite well with my methods described above.
I have an excel which creates PPT from the excel. but the graph pasted in PPT are not aligned and formatted.
By aligned, i mean re-size the graph and paste in a formatted fashion (currently they are overlapping each other)
My entire PPT created is off alignment and formatting. E.g heading are not properly aligned (they are touching the line below) and so on.
I have written a vba program that creates a report in excel. Most of the pages of the report are created at runtime. I have an image on a hidden worksheet that I need to place into one of the worksheets that is created at runtime. The image is an excel chart that I copied and pasted as a picture. I did this so that I could resize it easily and all of the elements of the chart would maintain their relative sizes. I have tried:
View 2 Replies View RelatedI have a approximately 17 workbooks, all with multiple worksheets within. I have a logo that I now want to add to each worksheet in every book.
What I would like to do is the following, on each worksheet.
Add 13 rows starting from the top A1 (this is to make room for a logo I want to add)Add the logo JPG file (which covers the range A1:F13) . This will be the same picture for all sheets. The picture properties should be "Locked" and "Don't move or size with cells". The path of where my logo is stored is C:UsersGrantDropboxEffExAdminLogosEffEx_logo-05Then select the entire contents of the workbook and uncheck "Locked" from the format control.Then apply protection (which leaves the picture locked) but allowing selection, inserting and formatting of rows/columns.
This will allow the users to still format columns and rows eg. autofit columns, but they cannot select and delete the logo.
I have tried using the Macro Recorder but when I select all sheets, I see that it records the actual sheet names and so this will obviously not work for when applying to other workbooks. Also, it did not record any of the Protection commands which I did.
how I can do this?
In one column I want to reference the maximum value entered in another column. In a third column, I want to refernce a different row that is in the same column as the maximum value.
View 8 Replies View RelatedIs there a way to export and save the contents and table layout of a worksheet as a picture ( say jpeg )?
Basically what I would love to do is that when I save the workbook, a certain worksheet named " Fax " is saved to my desktop as a picture (as a snapshot). What would even be better is that the said file was named with simply the date !
The purpose of this is so I can email it to a very non computer guy who thinks that excel is only a gum . . .
I know this is weird but you guys are the best, you helped me a lot to make my spreadsheet.
how to correct the tiling of a picture set as a background on a worksheet? It would appear to start tiling at b2 rather than a1. the bottom of the picture starts on row 1 and the top of the picture then begins row 2. also column a shows the far right side of the picture and column b shows the start of the left side.
View 2 Replies View RelatedI have tried a couple things to get this image to show up on my userform and i keep erroring out.
Run-time Error '404' Object required
If i hover over the "userpic" in debug it has the correct referance, its just not doing anything.
Any help or suggestions would be great.
-LightData = Userform
-Pictures all held on sheet5 of wookbook
(I've search and looked at all the threads, which actually lead to what i have below)
Private Sub ComboBox1_Change()
Dim RowOffset As Integer
RowOffset = ComboBox1.ListIndex
userpic = ComboBox1.Text
LightDate.Image1.picture = Sheets("sheet5").Shapes(userpic)
TextBox1.Text = Sheet1. Range("c2").Offset(RowOffset, 35)
CheckBox1.Value = Sheet1.Range("c2").Offset(RowOffset, 37)
CheckBox2.Value = Sheet1.Range("c2").Offset(RowOffset, 38)
CheckBox3.Value = Sheet1.Range("c2").Offset(RowOffset, 39)
CheckBox4.Value = Sheet1.Range("c2").Offset(RowOffset, 40)
CheckBox5.Value = Sheet1.Range("c2").Offset(RowOffset, 41)
CheckBox6.Value = Sheet1.Range("c2").Offset(RowOffset, 42)
CheckBox7.Value = Sheet1.Range("c2").Offset(RowOffset, 43)
CheckBox8.Value = Sheet1.Range("c2").Offset(RowOffset, 44)
CheckBox9.Value = Sheet1.Range("c2").Offset(RowOffset, 45)
CheckBox10.Value = Sheet1.Range("c2").Offset(RowOffset, 46)
CheckBox11.Value = Sheet1.Range("c2").Offset(RowOffset, 47)
End Sub
Using excel and Crystal Ball I generated a workbook that calculates via VBA Value at Risk and diverse financial charts and ratios.
I have a second workbook, the template, where this values are pasted generating a report.
Up to this point the macro works correctly, the problem is that some of the Crystal Ball charts are pasted as images and I dont know how to "handle" this images.
I reached the point where I can paste the image in the template.
I want the macro to:
1) Detect the images in the template worksheet
2) Determine a position and size for each image
I am trying to embed a picture into a worksheet, hide the picture, then call it up later when a macro runs. I know how to insert a picure using a macro, but I want to embed the picture so that I can take the file with me that includes the picture and be able to call the picuture in my macro. Right now, the picture is on my hard drive and the picture will not load if I take the file to a different computer and run the macro.
View 4 Replies View RelatedI have an image box on a userform in Excel VB. Is there ANY WAY to load an image into this image box from an object that I have loaded into an excel worksheet something like
If userform1.checkbox1=True Then
userform1.image.picture = loadpicture (Worksheets("Sheet1").shapes("Object 1"))
ElseIf userform1.checkbox2=True Then
userform1.image.picture = loadpicture (Worksheets("Sheet1").shapes("Object 2"))
Else
msgbox "No image"
Endif
First of all, I would like to thank all Excel Forum Moderators and Members especially Andy Pope for the great effort they exert to help all members.
Lately, I viewed the thread available on the following link and I admired the great perfect work and codes provided by Andy Pope so much,
http://www.excelforum.com/excel-prog...-userform.html
My request is similar to the points discussed in the above mentioned thread, but, it is a little bit different ..
Instead of inserting the picture to the worksheet, I want the picture to be copied from one folder on the HD to another folder called (Employees photos), which is located in workbook's path.
In other words, I need a code to copy one jpg picture from one location to another.
I would like a macro that would analyze a range (H15:GI15) to see if they contain FH, FS, FB, FR, or FC and if they do, copy the related picture associated with the 5 variables and paste it in the cell.
I did this code and it worked, but the code is very long. Another problem I have is there needs to be a way to delete the existing pictures before the code runs too. Because the cells may change and the button that runs the macro would be labeled "update" or something to that effect. I don't really need it to run everytime the cell is updated, just when the "update" button is pushed.
I’m trying to copy a chart as a Picture but when I select Shift Edit as Jon Pelltier suggests at http://peltiertech.com/Excel/XL_PPT.html
In the Copy Picture dialog box it doesn’t appear the “Format” option (to enable Picture copy).
Why is this happening?.
Currently using Excel XP.
i have this picture of a list of chores..its about 150 different chores long
i can type all of it in..that would take a long time..
but anyway i was wondering if there was a way to take the picture and turn it into words..
Ex.
A1 Sweep Kitchen Floor
A2 Mop Kitchen Floor
A3 Empty Dishwasher
A4 Fill Dishwasher
I am trying to make an Excel sheet with a frontpage sheet and a data sheet. In the data sheet I have several columns with data and then in the end a cloumn with pictures. On the front page sheet I can easily with VLOOKUP formulas transfer the desired data from the data sheet to the front page sheet but I cannot seem to figure out how to copy the picture. When I try to copy the cell with the picture in it, the formula only copies the cell value, which is "0" because the only thing which is in the cell is the picture. how to copy a given picture from one sheet to another based on the information in another cell like a "Vlookup" formula?
View 3 Replies View RelatedI have a tab with several small tables (Column E-G). What I need to do is to copy them as pictures, move them to another tab, change the picture size, and align them in the new tab.
The data set is huge and it would involve lots of labor if copy and paste one by one. Is there any way to do it using a macro? I tried to record a macro, but it doesn't work. It will not change the size of the picture and I don't know how to tell Excel to align them the way I want.
I have a not too big catalog in Excel format (2010). Each row has a picture. Now, I need to generate sales report. Some items do not sell. For report purpose, I want to delete those rows along with the pictures. Possible to do so? I did an Internet search and found that drawing objects are not bonded to a row or a cell. Seems to me I cannot selectively delete picture in a particular row. True?
View 1 Replies View RelatedI have Image tool located at range B1:F36.
I have a simple VBA Code like as following.
Sub test
Sheets("Sheet1").Image1.Picture = LoadPicture("")
Sheets("Sheet1").Image1.Picture = LoadPicture(CFPicPath + CFPic)
Range("A1:G37").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
end sub
I have a problem at
"Range("A1:G37").CopyPicture Appearance:=xlScreen, Format:=xlPicture"
It always copy a blank picture to paste on sheet2.
How can I able to refresh IMAGE tool before copy range as picture ?
I am trying to copy 8 adjacent cells in a sheet and paste them on another sheet as a picture (using copy picture method). I could do that 3/4 times, but after that I started getting the insufficient system resources error.
View 7 Replies View RelatedIn 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?
View 1 Replies View RelatedI 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
View 6 Replies View RelatedTrying to create a macro to run through the following steps when I select a chart and run the macro:
Paste>As Picture>Copy As Picture>As Shown When Printed>OK
I used the macro record feature and when I enter the shortcut it always returns the same chart. How do I get it to run on whatever chart I have selected instead?
I am constantly using this function to copy charts from Excel into PowerPoint presentations and am frustrated with all the extra steps it takes (versus just Ctrl-C).