I have an Excel (.xlsm) that opens an existing PPT and uses VBA to modify several slides.
There are several shapes on each slide and my .xlsm has VBA that modifies those shapes.
(The slides have designs on them for different size business cards which get filled in with spreadsheet names,...)
Now I want to "select all" the shapes on a slide as a "group"(not sure that term is correct). Then I want to export that group as a .PNG image file. Save location can be the same folder location of the .xlsm file (doesn't really matter).
This is different than exporting each slide as a .PNG.(which I can already do). In this case the business card designs on each slide are different sizes. So I need the images to be just the size of the "group" on that slide.
The VBA code is within the .xlsm file (not the PPT)
Several posts show VBA code for within the .pptm file that works fine if using just a PPT
However that code doesn't seem to work when I put it in the .xlsm file to drive the image creation from Excel.
Here is something I have noticed with using Compress Images in 2010.
When I run Compress Images from the save as dialog box in 2007, the file size is slightly larger than if I run it in 2010. However, if I then send the resulting excel file out to people, if they are viewing it on an iPad, then they cannot see the images at all from the 2010 version but can see them fine if the excel file is from the 2007 version (with exactly the same data and images in there).
I cannot figure out why this may be. The options on both are set as "Email (96ppi)" and with "Delete Cropped areas of pictures" ticked.
Im trying to create shapes Rectangles and Squares with different colours within an excel sheet, where the length and height of the shapes is generated by input values.
Also is it possible to create 3D shapes, again where the size of the shap is generated by input cell values.
I have been presented with an excel document, with image names in one column (e.g. 832005_001), and hyperlinks in another column [URL]
My goal is to export the hyperlinks in the excel document into a folder as images with the corresponding image names. Is this possible to do without manually opening each link and saving it in a document, and manually renaming each picture in accordance with its image name? (as there are over 4,000).
I have 200 rows of data, each row is associated to an image. I woud like the filters to recognize that the image is associated to that row. I know that image is not "strictly" data. Does anyone know a way to do this?
I've encountered another error when trying to run this macro to extract images from a spreadsheet. As the macro is running during the process it has stopped and I get the runtime error "1004": "Methid "Publish" of object "PublishObject" failed.
When I Debug it highlights the text below.
Sub Test() Dim Folder As String Dim Pic As Picture Dim FileName As String
[Code]....
Alternatively if I click "End" it opens an extra excel window and displays an image from the original sheet. With the workbook labelled as the product code.
I have a list of items in an excel sheet... 500 of them... and there are images for them in an other folder... The problem is those images are in 1000's and I only need those 500 images.. Images are saved as "SKU.jpg eg NS2354.jpg and we have an SKU column in excel as well .. SKU and their images have same name...
Is there any solution to pick up only those 500 images from those thousands of images?
Is it possible to save those 500 images in an other folder?
I have an excel file which contains 9 columns. Column A contains an article number i.e 12345 . Column B contains name of the product. Columns C and D contain Description and Specifications respectively. Columns E,F,G,H and I contain URL:s of images.
I want to do following.
1. Download all the images in a folder on my harddisk.
2. Copy the text in column C and place it under the text in column D.
note that I am a novice at excel and have never used macros/Javascript/VBA/etc
I've recently purchased an add-in for Excel 2010 called Image Assistant. It allows you to insert loads of images at once and automatically puts them in the cells for you, which is what I need to create quotes for my business. It was painstaking to go through resizing each picture individually so I thought I'd give this a go...
The demo of the program worked fine, except it restricted you to one picture at a time and I have thousands to go through. It resized the picture great and put it in the cell as I expected.
So I purchased the full product. There didn't seem to be an option to just put a license key into the demo version to make it full, and I was sent a link to download the full version, so I did.
When in Excel, I click the icon in the add-ins window and Excel grinds to a halt. It stops responding instantly and then won't do anything until I force close it, at which point it pops up with "Automation Error" and then closes the program.
I've checked DEP settings, trust center settings, add-in settings. I've tried 'repairing' Microsoft Office in case it was an issue with Excel itself but that didn't work. I've uninstalled and reinstalled the add-in several times and it still freezes every time I open it.
Problem signature: Problem Event Name:AppHangB1 Application Name:EXCEL.EXE Application Version:14.0.7109.5000 Application Timestamp:522a4031 Hang Signature:31f9
with the following: The VBA macro I am using, is derived from the excellent "Table of Contents" macro written by Erik Van Geit, a few years ago.
I have a workbook (in Excel 2007, Windows XP) with an Index sheet and 200 other sheets (called ScreenShot1 to ScreenShot200). Each of these 200 sheets has had an image pasted in the top left corner.
At present, using the macro below, a hyperlink is placed in cell A1 on each of these 200 sheets (it's behind the image) that links to cell M1 on the Index sheet. What I would like this macro to do is make each image the hyperlink back to cell M1 on the Index sheet. Please note that the images are not named.
VBA code below,
Sub create_TOC() Dim i As Integer Dim msg As String Dim fc_order As Range Dim sht As Object '**** EDIT the following lines **** Const TOC = "Table of Contents" Const Index = "Index" Const CellLink = "A1" '**** END EDIT ****
I would like to use Shapes in excel, instead using userform as the code below.In this userform, it has command buttons for the numbers and the a text box to show the numbers.How can I do it, using square shapes for numbers and another rectangle shape, to show the written numbers.I would like to create a number keyboard using "shapes".
I am struggling to get a macro code for zooming in and out the shapes. I have a macro which fulfill half of my requirement. By assigning the below macro to the shape I am able to increase the current size to double by clicking on the shape however I need the same macro should retain the original size upon second click.
Here is my code to increase the size.
[Code] .....
"The requirement: Once after assigning the macro, on first click it should double the shape size and on second click it should retain the original size."
I did use the solution in a thread by Andy to make a picture or shape rotate. It works perfectly as a standalone. With this I mean all the information on the same sheet as per example in the file 901259.
I'am using it to rotate a dial. The problem is instead of using the value from the sheet itself I link the scrollbar to a cell on a different sheet in the same workbook. There some calculations are done and the value which makes the dial rotate is linked to that sheet. The dial however is on another sheet.
The calculations are almost displayed realtime but the dial is lagging. How would I go about to "solve" this lagging.
I have an excel file which consists of old name and new name in two different columns. I have 500 photos in a folder. I want to rename the photos with the new names when there is a match with the old name(same as that of image name) in the excel.
I would like to add hyperlink to multiple JPEG images (separately) in Excel 2003 and send those images via email to another person. On receiving the mail at the opposite end, the person concerned should be able to view the images by clicking the link. How to do?
1.) Create shapes (customize oval shape), I was able to create one but I think the code needs improvement to have the shape a fixed name. - see attached excel file.
2.) Move shapes into corresponding cell. Example: (Oval shape1, should be in cell g6). - see attached excel file.
I'm using Excel to create a flowchart from a configuration sheet. I'm not manually entering the coordinates. Instead, I draw the start step in a set location. The next step(s) that's connected to the first step is placed directly below the start step. if there's more than one step connected to the start step, it's placed at the same y-coordinate but shifted along the x-axis.
The problem I'm running into here is this: say I have three steps connected to the start step and three further steps connected to the first of the three connected to the start step, how can I keep track of this and shift the other two steps connected to the start step along the x-axis so they're not positioned above the four steps below the first step (and as such, in the same location as other steps)? I'm not sure if my description is particularly clear or not so I've attached a drawing that will hopefully clear things up.
Is there any way of giving Excel shapes a "weight" so that other shapes won't line up on top of them?
I have shapes in 3 different rnages of cells on a cell worksheet: R1 = $D$5:$D & lngRows (row=32) R2 = $G$5:$G & lngRows (row = 51) R3 = $M$5:$M & lngRows (row = 50)
I need to set the properties of the shapes in each range differently The shapes in R1 are Left + 46 But the shapes in the other 2 ranges need to be just left My problem is in this bit
Code:
'Set properties for each shape in ShapeRange For Each sh In ws.Shapes
I need to be able to set properties for each range separately instead of the entire sheet. Full code below (only Range $D at the moment - works)
Code:
Option Explicit Sub AddShape3() 'Purpose: Add small rectangles to database table/fields for ' brainstorming and documenting relationships and queries ' 'Resources:
Ii have a UserForm with a ComboBox in it. the selections in the box are
0 5 10 15 20 25 30
I have 7 shapes in Worksheets("Interface") and renamed each shape caution1 through caution7
What i need is when i click on continue in my userform each shape will change according to the selection.
if 5 is selected all caution shapes will read, Caution flag is out 5 minute break if 10 is selected all caution shapes will read, Caution flag is out 10 minute break if 15 is selected all caution shapes will read, Caution flag is out 15 minute break and so on
am using Excel 2010 and having issues trying to save a worksheet to a specified file location with the save date....
I have tried several posts form this forum and elsewhere and can't seem to get the macro to do what I want.....
I want to save a 'worksheet' from an open workbook that I use for updating information to the same file path as the workbook with the date the file saved...
I have an expense report, which was originally done in Excel 2003. It still prompts users to open as read only however if they select no, they are not prompted for the password, and it has allowed them to save, so when the next person opens it, they have the previous person's report instead of the clean workbook. I have tried everything to put a password onto it. I know this is really basic stuff, but maybe I am missing a step? I want the end user to be able to make all the changes they want in read only mode and then do a save as, but if the select No when prompted "Open as Read-only?" they should have to put a password in.
What I am trying to do is that I have an excel file with macros and it is a read-only file. In order for the user to save, I want them to only be able to save as a .xlsx file as it disables all macros. If for whatever reason, the user wants to save the file as another .xlsm file, they should be allowed but before they save, a "are you sure you want to save as .xlsm?" message should pop up.
All the options in the save as box should still be available in case they want to save in that particular format. Just that the .xlsx should be the default.
I am currently trying to create a database of products for my company. For each product I would like to include an image associated with it. I then want to have on another sheet a place where the user will click an error and be able to cycle through the products. As tehy cycle the associated image will pop up.
What I need to understand is after importing the image into excel, how do I associate that image to a cell so I can reference it in another sheet of the database. I am not concerned with how large the database will get, my pictures are quite small.
I have created a macro in excel 2010 which enable the file to save (extract) data into separate location and name. The vba code for macro is as follows: Question: How can I save this workbook with reference to the value containing in cell B2? (it is named temporary now - as defined in the code)
I have some daily text files in a folder (so about 30 of them each month), which in the end of month, I need to open them up in excel, format them so that I can use the information for my analysis.
I would like to create a macro, to quickly open them all up at once and save them each individually in .xls or .xlsm format.
I am new to VBA and after some research online, I was able to have the files open with the following code. but now I don't know how to proceed further to save them one by one with the same name but in .xls or .xlsm format.
Sub Opentxtfiles() Dim MyFolder As String Dim myfile As String
I would like to open all Excel files in a specific folder, insert a column after J and save the file as csv with the name a concatenation of text in A1 and B1.
