Excel 2010 :: Pictures Resize When Changing Page Breaks
Jun 11, 2013
I have a user here at my company that is having a strange issue with Excel. When she moves a page break in her document, Excel freezes up, then once it finally makes the change (if it doesn't crash), some (but not all) of the images that are in the document resize to super small.
For instance, she may have 50 rows. Each row contains a column with an image, then a few other columns with product information. Changing a page break may cause ten of the images to become tiny for no apparent reason. Resetting page breaks seems to cause the document to explode, with cells being thrown all over the page into different locations and columns becoming uneven.
When I make the same change on the same document on my system (both using similar specs and Office 2010), this does not happen.
Is it possible to use the resize function in Excel VB to select all rows that are between 2 page breaks.
I have a worksheet with several pages of data. Each page is separated by a page break at the top and bottom of the range, each page can consist of any number of rows from 20 to 50. I need to look for a specific criteria in column A in each of these pages. If the criteria is met, then I need to delete that page.
For example, if the cell where the criteria is met is A50, in page 2, and the page break above this is at row 45, and the one below is at row 55, then delete rows 45 to 55
I have the code that finds the criteria in column A. I tried to use the offset and resize functions but as there isnt always a consistent number of rows involved this didnt work
If this isnt possible, can you refer to page numbers in excel, so if the criteria is found in pages 4, 7 and 10 of the data then these pages are deleted?
My office recently upgraded to Office 2010 and we would like (in the accounting department that I work in) to change the default number formating in a blank sheet to Number, 0 Decimals, using seperators, from the current default of general format number.
I have looked for the Book.xltx file to replace but can't see it any where.
I need to resize Excel pretty frequently - I need to size the whole Excel app tall and all the way to the left, taking up about a third of my screen - then maximize it - then back to tall and left, etc. I can do it by clicking the "Restore Down" icon in the top right corner, but I can't figure out how to do it using the keyboard.
I've tried Ctrl-F8, Ctrl-F9 and Ctrl-F10, but they all act on individual workbooks within the Excel application. I want to resize the whole Excel application. Does it exist?
In Excel 2007, Hyperlinks in cells pointing to jpg files in a subfolder display with internet explorer. On my WinXP/Intnernet Explorer 8/Office 2007 system these links work fine.
When sending the excel and jpg files to another person with Win7/Office 10, jpg hyperlinks work and launch Internet Explorer but come up blank. (Hyperlinks to PDF files work fine and show up in Acrobat, just the jpg's come up blank in Explorer.)
Questions: What is causing this, a setting in Explorer/Win7 or Excel? Can I change Excel hyperlink default software to use something other than Explorer to display the jpg files?
I want some code which will automatically insert a page break every time the data changes in a column. In column B- the data is structured as below;
DOG <blank cell> <blank cell> DOG <blank cell> DOG <blank cell> <blank cell> CAT <blank cell> CAT <blank cell> MOUSE <blank cell> MOUSE MOUSE <blank cell>
The code I want would insert the page break every time every time the data changed- but not where there is a blank cell. I hope this makes sense. I realise the blank cells complicate things- the blank cells separating the data cells are there because there is additional;data in columns C,D,E etc
I have a worksheet with 760 names on it. The first row are headers, 2nd row on is the data. I need to break the data up into 25 rows a piece, excluding the headers. I am making rosters, so each roster would have twenty five names per sheet. Of course I know I will have a couple of names left over, but this would help with the bulk.
I have a spreadsheet that I need to print, but Excel automatically puts in an automatic page break every cell. I have tried all other solutions to this problem posted on this site (page setup, printer issues, etc).
I'm using the this code to print some info out of an existing worksheet and I'd like to force excel to remove all pagebreaks, as the last column or two is always printed onto another page. Does anyone know how to programatically remove pagebreaks?
I'm importing a text document into excel, and I have these page breaks that start with a c in the leftmost space(no other lines start with a character in the 1st space) and 15 spaces underneath it are page headers. I'm trying to create a macro that scans the entire A column for any "C" in the 1st leftmost space, highlight and delete(move page up) that "c" and the 15 spaces following it. I want the macro to loop until it ends.
So far, this is what I got for selecting C:
Dim c For Each c In Range("A1:A306").Cells If Left(activecell.characters.value,1)="C" Then c.Select
want to specify page breaks and set print areas when running a macro. Appears to work sometimes, but then breaks (hard and soft) pop up on their own). Currently using something like this to specify a 2 page wide view...
ActiveSheet.PageSetup.PrintArea = "$A:$Z" With ActiveSheet.PageSetup .FitToPagesWide = 2 Set ActiveSheet.VPageBreaks(1).Location = Range("P1") End With
Can I force breaks to be more absolute (more accurately)?
I have a sheet that data is imported into that is normally no more than 300 rows. I need to insert 2 blank rows after each page break. My problem is the row height is not always the same when the data is imported. How to insert 2 blank rows after each page break using a macro.
I have the following code that I am using to create conditional page breaks. It works sporadically. It will work on the data I used when i set up the code. It will sometimes work on smaller amounts of data. It will sometimes insert the page breaks but then error out at line: ActiveSheet.HPageBreaks.Add Before:= Cells(row_index + 1, "D"). I do not understand this code entirely as a i am novice VB user. Once I get this code to work, I'd love to imrove it so that the page breaks ends when there is no data in last row or last column.
Sub PageBreak() Dim lastrow As Long Dim row_index As Long lastrow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row For row_index = lastrow - 1 To 2 Step -1 If Cells(row_index, "D").Value <> "" Then 'insert page breaks ever time value in column D changes If IsNumeric(Cells(row_index, "D").Value) Then If Cells(row_index, "D").Value <> Cells(row_index + 1, "D").Value Then ActiveSheet.HPageBreaks.Add Before:=Cells(row_index + 1, "D") End If End If End If Next
I have a spreadsheet that is 7 columns wide and contains blocks of data. The data blocks vary in size typically between 3 and 12 rows. Between each block of data is a blank row (there are no blank rows within the data blocks). There may be up to 500 rows in the spreadsheet consisting of maybe 30 varying size blocks of data.
I am attempting to produce a Macro that will insert page breaks into the spreadsheet, the requirement being that non of the blocks of data are split across two pages. I would need to be able to input the available number of rows per page (to allow for headers and footers), the Macro would then need to count down that many rows, find the last blank line before that point and insert a page break. It would then need to count from the position of the inserted page break to determine where to place the next page break etc.
I need to find row numbers of the horizontal page breaks on a sheet quickly. The only method I have found to do this is by using the HPageBreaks property, which is painfully slow.
Is there another way of doing this that's faster? Or some other manner of using HPageBreaks that improves its speed?
The scenario is that I have a macro which generates a list of items where each item is two rows long. If an item intersects a page break--one row is on one page and the 2nd row is on the next page--I want to insert a row so that the entire item is on the next page.
I have a report that is generated that is broken down into 4 or 5 headers.
What I want is basically a way to manually add page breaks for 2 conditions:
*That no section starts at the end of one page and ends on the next; I want to just insert a page break before the section so it is all on the next page.
* That if the first section is more than a page long, that it inserts a new header saying 'section 1 continued..' basically.
I've been able to code it and it functions how I want. However, it takes about 20-30 seconds on a dual-core computer with 2gb of memory to insert these page breaks, so I thought I'd get some expert advice on where the slow-downs are and how I could go about tightening up the code to get it to run faster. (this subprocedure is #15 of 15 when generating the report, and the rest take between 2 and 5 seconds combined).
Sub Quote_Page_Breaks() Dim financials_start_row As Integer, financials_start_page As Integer, financials_end_row As Integer, financials_end_page As Integer Dim recommended_start_row As Integer, recommended_start_page As Integer, recommended_end_row As Integer, recommended_end_page As Integer Dim standard_end_row As Integer, standard_end_page As Integer Dim i As Integer, page_break() As Integer Dim recommended As Boolean On Error Resume Next