Fix Position Of Picture On Worksheet
Mar 22, 2008In 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 RepliesIn 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 RepliesUsing 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 need to insert a picture on a Excel 2010 worksheet.
The worksheet contains a variable number of columns, and the column width is also variable.
The picture needs to be aligned such that the right edge of the picture is in line with the right side of the last used column.
This is so that when the worksheet is converted to a PDF document the picture (company logo) appears on the top right hand side of the page.
I can find the cell reference for the last column, and I can move the picture around the page. But I'm not sure how to find the position of the last column on the page?
I've got this far:
'copy picture and resize and position
Sheets("Output File").Select
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Sheets("External data sheet").Select
Cells(1, 10).Select ' I can make this be relative to the last column on the WS
ActiveSheet.Paste
Selection.ShapeRange.Height = 50
Selection.ShapeRange.IncrementLeft 0 'put the picture in a position relative to the cell selected
I have a bit of a complicated one here so I have attached my book, its probably easier to undertstand the query by looking at the book. Hopefully somebody can help me out here.
I have 2 worksheets:
A results worksheet - this contains all category of results, each category has been given a specific sort id.
A foreign worksheet - this contains all categories found on the results worksheet with sort id = 7.
Now the complicated bit. The whole exercise is too pick up the correct exchange rate for the foreign category (sort id 7). each foreign type has a specific number at the end of its description in brackets e.g (3).
At the bottom of the "results worksheet" is a key which says what type of exchange rate to use for this type e.g. (3) Price of CAD 22.9 converted using exchange rate of CAD 1.9645 = £1.
What I need to do is on the foreign worksheet, it to recognise the number in the item description, keep it in mind then switch over to the "results worksheet" find the keys at the bottom of the page (the key is not necessarily in the same place all the time!!), match the number in the items description with the corresponding key and then find the exchange rate.
As i said very difficult to explain, since I reletively zero experience with this kind of work in excel. Luckily I been muddling my way through a work project gradually thanks to a forum member here. so i hope we can keep this up!
edit:
two restrictions in the way this solution can be done:
1- Results worksheet can not be modified, but it can be referenced to using INDIRECT, and you can make any number of modifications outside of the results worksheet.
2. Any solution must be automatic.
/edit
I have attached my workbook and highlighted the bits I need to fill and the picks I need to pick up.
Would be ever so grateful if some1 could show me the light here.
Part of my code adds a Worksheet to the selected Workbook and then re-orders them alphabetically, but one of the Worksheets (Called home) should always remain at position 1. Is there a way to dictate exactly which postion it should be in so that I can place it there after the sort is complete?
View 7 Replies View RelatedI need the cell address where the cursor is (in a non active worksheet).
View 5 Replies View RelatedIs it possible by using Visual Basic coding to position an image on a worksheet so that no matter what the screensize is it will always appear in the center of the screen, a corner or a side?
View 9 Replies View RelatedI have written a small piece of code that handles clicks on buttons on an excel spread sheet. When a button is pressed, i need to know the row number where the button resides in.
I have searched and read about this issue on several forums, and they all indicate that i need to use something like
application.caller.topleftcell.row
to get the row number and
application.caller.topleftcell.column
to get the column number.
However, when i use the row variant, it ALWAYS returns row number 1. When i use the column variant, it returns the column number it is actually in.
i have added the full code that is creating the buttons below, and also the part that displayes the rownumber that is incorrect.
Private Sub Workbook_Open()
Dim name
Dim time As Integer
time = InputBox("Typ the hour you are checking" & vbCrLf & "eg: 7, 10, 13, 14, 15, 16, 17, 18, 19", "Which Check")
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 RelatedAdd Multiple Buttons That Select Row Of Housing Cell. One of my Macro's places a button on a sheet using Top/Left;
Set sbut = Sheets("Listings").Shapes.AddFormControl(xlButtonControl, _
Range("J" & count).Left, Range("J" & count).Top, 50, 12)
When I try to find the row of the clicked button using the following code;
Range(ActiveSheet.Buttons(Application.Caller).TopLeftCell.Address).Activate
The code behaves differently in Excel 2002 and 2007. In 2002 it returns the row the button sits on, but 2007 returns the cell above the button. This could be because the workbook is an XLS running in Excel 2007 in compatibility mode? Is there a way to "nudge" the button down a little after it has been placed using .top/.left ? Or is the only way around this something like;
Range(ActiveSheet.Buttons(Application.Caller).TopLeftCell.Address).Activate
count = ActiveCell.Row
If Application.Version >= 12 Then
count = count + 1
End If
Is this a bug, or something that I am doing wrong ? The workbook needs to be a .xls to ensure that it works in older versions of Excel.
I 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?
I need a macro that will create a new blank worksheet, move it to the last spot and paste the entire contents of the sheet named "master" into the newly created sheet.
I have tried to do this with the recorder but have been unable to get it to work.
Is 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.
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 Replies View Relatedhow 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
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
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.
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?
View 1 Replies View RelatedIs it possible to position a predetermined cell (e.g. A42) in the top left corner of the screen. (Not every screen users use has the same size)
View 3 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 RelatedI 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 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....?
I want to paste/show a photo in a particular cell (D2) on a worksheet (called PP). I wish to delete any photo that may already be there in D2.
The picture's name (e.g. J-145.jpg) will be found in another sheet (called MP) in cell H1.
My pictures are stored in a folder (lets call it c:pictures) and the one I want has the same name (J-145.jpg).
I've tried many macros but none work.
i m working on a mechanical project , I need to do some modifications to my XLS file that i aint familair with.
http://aycu36.webshots.com/image/348...0572870_rs.jpg
I have some cells with some spaces and then text where I want to find the position of the first letter. Do any of you know about any function I can use?
The example below contain 5 spaces and then my name. It should give me the answer 6.
" Magne"
Here is example... Explanation is in the title
Book2.xls
I would like to end a macro with a specific cell (e.g. E50) in the first cell in the upper left hand corner of the screen. How might I accomplish this?
View 3 Replies View Related