I am working on transfering some code from 2003 to 2007. I have gotten almost everything to work, but am now having an issue with the way it places the pictures into my spreadsheet.
The code asks the user to select a folder containing .jpg files. It then places each of the .jpg photos onto a single spreadsheet. Each picture is suppose to be placed in a different cell. When I step through the code, the active cell changes correctly based on the offsets, but it always pastes each photo in cell B4. Through some research I have found others to see this problem with ActiveSheet.Pictures.Insert in 2007.
Following is the
Private Sub BatchProcessThumb2x3()
Msg = "Select a file containing the photos you want to insert."
Directory = GetDirectory(Msg)
If Directory = "" Then Exit Sub
If Right(Directory, 1) "" Then Directory = Directory & ""
I am doing up a spreadsheet for work. I have a master sheet which has important 'feeder' info on it. I also have 6 other sheets where the code will reference.
Here is the Data Entry sheet setup.
ColK --> Contains numbers starting in row 2 and ending in row 116 atm, could expand but no further than 500 ColL --> Same as above but with different numbers ColM --> contains formulas which produce the sheet name that the data in ColK and ColL is related to (6 sheets)
----------
I require some code that will look at each row from 2 to 500 in ColM for something other than "out of range" or nothing (the "out of range" or empty ones should be ignored), and for each relevant row it should identify the sheet name in ColM and then identify the cell that is at the cross reference of the 2 numbers from ColK and ColL and then insert a picture at that cell. Each sheet (the 6 of them) has numbers in ColA from A2 and Row1 from B1. The numbers will exact match those from ColK and ColL from the Data Entry Sheet.
I need to insert multiple images into a worksheet every 45 rows in and a specific column. I have sourced from other threads a means to insert multiple images but they are all inserted in the one cell.
What I require is the means to either place them directly into specific cells or move them to the correct cells once in the worksheet.
As you will see I am also attempting to resize the images once they have been inserted.
Below is the code I have thus far.
Sub Insert_Pict()
Dim Pict As Variant Dim ImgFileFormat As String Dim PictCell As Range Dim Ans As Integer Dim newPicture As Shape
I had a macro that worked perfectly by inserting pictures into named ranges throughout the sheet depending on user input. However when I switched to Microsoft Excel 2007, the pictures all go into one cell.
My code looks like this:
Application.ScreenUpdating = False
Dim picnme As String Dim rng As Range Dim ArrImg Set rng = Range("B5") picnme = Range("B5")
I only copied in a section of it bit it gets rather repetitive. There are over 50 pictures that get inserted into the spreadsheet and it worked fine in the prior version of excel.
where exactly to add the code under Tools > Macro > VB editor.
My version: Office XP Pro ("2002")
The first code I need should be simple. I want Excel to copy cut delete files from the hardware, using data from a workbook.
There are 3 sheets: 1. "Names" - contains picture file names (without the JPG extence) in one column, 2. "From" - contains a cell with the original path to copycutdelete from 3. "Target" - has a cell with the target folder path (in case of copying/moving).
I made it in 3 sheets for making it user-friendly, since unskilled users will use the method.
I need to have 3 hyperlinks in the first sheet: "Move (cut)", "Copy", and "Delete", and by pressing the matching VB code eill be activated.
The second code should output (and print, if possible) data from a line to a pre-defind sheet.
Let's say there are 4 columns: picture file name, name of photographer, description of the photo, and the date it was taken. There will be in the end of every line a cell with a hyperlink called "Output photo details" to output the data to specfic cells in the Print sheet (e.g. the date goes to D7, the name goes to A3, etc.). An important thing I wanna output is the picture itself (like from "Add > Picture" ment, in a location I define in the code.
where i have a products list and respective pictures in a folder. What is should do is to get the relevant pictures appear on the screen when i select the relevant name.
I have an workbook with pictures that are linked to external picture files, and they are placed in the workbook via macro. When I email the file to another computer and open it, the pics do not display and show an error:
The linked image cannot be displayed. The file may have been moved, renamed, or deleted, Verify that the link points to the correct file and location.
I would like to be able to save the workbook with the pictures in them (without having to archive them) so that I can open it and see them on another machine.
I record a macro in Excel 2007 to insert a picture from a file in the active sheet, but when I stop recording it and I went so see the code and there was no code!!!
I did the same in Excel 2003 and the code was like this: ActiveSheet.Pictures.Insert("c:1.jpg").Select
I want to use VBA to insert an Organisation Chart in Excel 2007 (ie if I did this manually it would be Insert, SmartArt, Hierarchy), but I cannot find anything on line that shows how to do this in Excel 2007. I know the code for Excel 2003, but that does not work in 2007.
I want to put a hyperlink into an existing spreadsheet (which already has some hyperlinks in) but for some reason that option is now greyed out on my tool bar.
I need to insert a drop down box into my spreadsheet, and depending on the option selected, the formula used to calculate the value into another cell changes. How do I implement this in Excel 2007?
To put this in context, I need a list of acids in cell C3. Depending on the acid selected, the formula used to calculate acid concentration in another cell (D3) changes. I need a way to implement this.
I am using Excel 2007. I would like to be able to type "dlta" followed by a space and have autocorrect change it to the symbol for Delta (a triangle). I got it to work in Word because I could right click and paste the symbol in the autocorrect dialogue box. Excel won't let me do that. I also tried typing Alt+68 because I believe that is the code for the symbol I want but all I get is a "D".
Insert - Object allows me to insert a object (display as icon is used). Is it also possible to insert multiple objects in one go? Via this option I can always only select 1 object.
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 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 just upgraded to Excel 2007 and my macro from Excel 2003 for inserting a picture doesn't work correctly in 2007. I have a command button that states insert picture and when you click it, it will let you insert a picture into the cell and hide the command button. In 2007 it will let you insert the picture, but it isn't centered and expands into other cells and the command button is still visible. The picture appears to be the correct size it just doesn't center itself in the cell and the command button is still visible. Below is the
I am looking for a way of allowing users to edit the existing cells at their will, but simultaneously disabling the option to insert/ delete columns or rows.
By enabling Sheet Protection, I cannot find a way to do it. Can I?
I am on MS Excel 2007 by the way.
I found the way, just unlock all cells in Format Cells, Protection Tab. Then Protect sheet and de-select what you want to disable.
I have a form that collects four pieces of information from the user and places each into columns A, B, C, D on a sheet. I would like to automatically add an option button to column E so that a user could select it and then click a control button to delete the corresponding row.
Is this possible or is there maybe a better way to do this in Excel 2007.
I am currently using MS Excel 2007. Is there a way in VBA to automatically insert missing columns based on a defined series or range of values?
For example, we have a report that displays columns of: Year 2004 to Year 2012 per column (9 columns in total). Sometimes, it displays missing a year or years (thus; our report has less columns). For example, it only shows 2008 to 2012 (missing 2004 to 2007). At times, it misses some years in between. What we do is manually add those missing years by manually inserting columns then inputting the missing year as their column headers.
Is it posisble for VBA to check if the columns contain all of the defined Year range (for example, you've initially defined: Year 2004 to Year 2012)? Afterwards, all missing columns are automoatically inserted (in chronological order or based on your defined values or range).
Using excel 2007 I've created a new tab and wanted to place the 2003 file menu on it. I don't know how to include it automatically in the tab using a combination of XML and VBA. So I created a button with the callback to run some code. Unfortunately, it still places the item in the Add-in tab. How can I get the undernoted code to operate within my new tab with either XLM or VBA?
Code: Sub InsertFileMenu2003() Dim cb As CommandBar Set cb = Application.CommandBars.Add("xl2003 Menu", , True) CommandBars("Built-in Menus").Controls("&File").Copy cb Application.CommandBars("xl2003 Menu").Visible = True End Sub
All I want to do is copy the active worksheet to then end of another workbook. I have alread set my variables, here is the line that is causing me a problem: ....
I have a WorkBook with each sheet being a calendar month. I want to set the ActiveSheet as the current month so each time I open the WorkBook it opens to the current month WorkSheet not the last WorkSheet I was viewing.
Got a wee problem with some syntax for a copy function. At the moment the code i have copies the range and pastes to another range which is defined by a cell number. But i need it to paste special (values only).
I have looked at previous posts and found some information about ActiveSheet.Paste errors, which appear to be related to having activate, select and paste functions in the wrong order.
I am still getting an error at the ActiveSheet.Paste point of my code which I cannot seem to overcome, although this same code works on another macro doing exactly the same action...
