ActiveSheet.Pictures.Insert With 2007

Jun 26, 2008

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 & ""

View 9 Replies


ADVERTISEMENT

Some VBA Code To Insert Pictures

Jul 15, 2009

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.

View 9 Replies View Related

Insert Chosen Pictures To Every Nth Row

Aug 18, 2008

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

View 9 Replies View Related

2007 Macro : Inserting Pictures

Nov 24, 2008

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")

picnme = Range("B5")
Range("B5").Select
ActiveSheet.Pictures.Insert( _
"C:ArchivePictures" & picnme & ".jpg").Select
Selection.ShapeRange.ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementTop 1.5
Selection.ShapeRange.ScaleWidth 0.84, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.95, msoFalse, msoScaleFromTopLeft

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.

View 9 Replies View Related

VBA, Doing Actions On Files With Sheet Data & Insert Pictures

Feb 25, 2009

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.

View 9 Replies View Related

Insert Pictures Based On Cell Values From One Specific Folder

Mar 14, 2014

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.

View 1 Replies View Related

How To Save Linked Pictures Into Workbook As Embedded Pictures

Apr 28, 2014

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.

View 1 Replies View Related

Insert A Picture-2007

Aug 18, 2009

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

View 5 Replies View Related

Excel 2007 :: VBA To Insert Org Chart Object

Dec 24, 2011

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.

View 4 Replies View Related

Excel 2007 :: Why Won't Spreadsheet Let To Insert Hyperlink

Nov 20, 2012

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.

View 3 Replies View Related

Excel 2007 :: Insert Dropdown Box Into Spreadsheet?

May 14, 2013

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.

View 3 Replies View Related

Excel 2007 :: Insert Symbols With Autocorrect

Aug 7, 2013

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".

View 11 Replies View Related

Excel 2007 :: How To Insert Animated GIF Into Worksheet

Apr 27, 2012

How do I insert an animated gif into a worksheet in excel 2007?

View 8 Replies View Related

Excel 2007 :: Insert Multiple Objects

Jul 4, 2012

Excel 2007.

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.

View 1 Replies View Related

Excel 2007 :: VBA To Insert Hyperlink In Images

Nov 28, 2012

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 ****

[Code]....

View 2 Replies View Related

Insert Picture Code Not Working In 2007

Aug 18, 2009

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.

View 9 Replies View Related

Activesheet Rename

Jun 20, 2008

How would I code the Active Sheet to be renamed Sheet1?

View 9 Replies View Related

Insert Picture Macro Doesn't Work In 2007

Mar 5, 2009

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

View 3 Replies View Related

Excel 2007 :: Insert Paste Function Into A Cell?

Nov 25, 2011

I'd like to know if it's possible (Excel 2007) to insert a function/button into a cell, which when clicked, will paste whatever is on the clipboard?

You can see a screenshot of my document here, and I'd like to insert a paste funtion in the red circle. Is it possible?

[URL]

View 9 Replies View Related

Excel 2007 :: Disable Insert Columns / Rows Only

Mar 1, 2012

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.

View 1 Replies View Related

Excel 2007 :: Insert And Link ActiveX Control From VBA

Mar 15, 2012

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.

View 1 Replies View Related

Excel 2007 :: VBA - Insert Missing Columns In A Series

Dec 18, 2012

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).

View 6 Replies View Related

Excel 2007 :: Insert Built In Item On Custom Tab?

Jul 22, 2013

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

View 6 Replies View Related

How To Copy Value On Activesheet Cell A1

Mar 13, 2014

I need to copy a value on an activesheet cell A1, to another workbook located at d:locationaaa.xls cell C3.

View 7 Replies View Related

Copy ActiveSheet To Another Workbook

Oct 17, 2008

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: ....

View 10 Replies View Related

Setting Worksheet As ActiveSheet

Oct 22, 2008

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.

View 12 Replies View Related

Activesheet Copy Syntax

Jan 22, 2009

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).

View 5 Replies View Related

ActiveSheet.Paste Error

Apr 27, 2009

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...


ChDir _
"\workgroupHighlight_reportingTemplates"
Workbooks.Open Filename:= _
"\workgroupHighlight_reportingTemplatesProgramme report template.xls"

View 9 Replies View Related

Macro Sum Activesheet With Conditions

Oct 19, 2009

Group the same cells in each row,
if found, in Column 2 that refer to same cells in Column 1 and sum the cells in col 3 and 4 that refer in column 2.

Col 1
Col 2
Col 3
Col 4 1
272
0125
200
10 2
272
0125
100
5 3
273
203
500
85 4
274 ................

View 9 Replies View Related

ActiveSheet.QueryTables.Add Connection:

Jun 13, 2006

Sub WebQuery()
Dim strSearch As String
strSearch = "abc"

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.xyz.com/&=" & strSearch & "", _
Destination:= Range("A1"))
.Name = "search?hl=en&ie=UTF-8&oe=UTF-8&q=" & strSearch & ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With

End Sub...

View 6 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved