display pdf byte array in browser c# : Rotate pdf page and save software control cloud windows azure asp.net class 1200%20macro_examples15-part131

151
Else
Set
cellsToSetToZero =
Union
(cell, cellsToSetToZero)
End If
End If
Next
'if no input cells, exit
If
cellsToSetToZero I
s Nothing Then Exit Sub
'set input cells to zero
cellsToSetToZero.
Value
= 0
End Sub
9.11.17 Selecting The Current Region
If you place the cell pointer among a group of cells containing entries and press CTL and
Asterisk at the same time, Excel will select what is called the CurrentRegion.  The following
statement does the same thing in Visual Basic.
ActiveCell.CurrentRegion.Select
You can also assign the current region of a sheet to an object variable without first selecting it or
activating the sheet:
Dim curReg As Range
Set curReg = Sheets("Sheet1").CurrentRegion
9.11.18 Using the Used Range Property In Your Code
TheUsedRange property of a worksheet refers to the "the range of the worksheet that is used".
For example, the following statement will select the UsedRange on the active worksheet:
ActiveWorksheet.UsedRange.Select
in Excel 5 and 7, if you delete rows or columns from the used range, Visual Basic does not
recognize that the used range has changed.  To reset the used range in Excel 5 and 7, you need to
save the file.
You can also refer to the used range on another worksheet and set it to a variable for later use:
Dim usedR As Range
Set usedR = Workbooks("Book1.Xls").Sheets("Sheet1").UsedRange
Once important use of theUsedRange property is to restrict the selection to just cells in the used
range.  This is very important if the user can select an entire column or row and you must test or
take action each cell in the selection:
Rotate pdf page and save - rotate PDF page permanently in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Empower Users to Change the Rotation Angle of PDF File Page Using C#
rotate pdf pages individually; how to reverse page order in pdf
Rotate pdf page and save - VB.NET PDF Page Rotate Library: rotate PDF page permanently in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
PDF Document Page Rotation in Visual Basic .NET Class Application
how to rotate one page in a pdf file; how to rotate just one page in pdf
152
Dim rangeToCheck As Range
Set rangeToCheck = Intersect(Selection, _
ActiveSheet.UsedRange)
The above restricts the range to check to just cells in the used range, even if an entire column or
row is selected.
9.11.19 Resetting the Used Range
UsedRange does return a range object to theUsedRange when used like
Set SomeRange = ActiveSheet.UsedRange
But calling it alone,
ActiveSheet.UsedRange
will force Excel to reset the range to the "real" used range.
9.11.20 Selecting The Used Range On A Sheet
The simplest way to select the used range on a sheet is to use theUsedRange function.
Sub UsedRangeExample1()
ActiveSheet.UsedRange.Select
End Sub
or
Sub UsedRangeExample2()
Dim tempR As Range
'set a variable to the active sheet's used range
Set tempR = ActiveSheet.UsedRange
'statements that use tempR
End Sub
If the sheet whose used range is needed is not the active sheet, then you can use the following
approach:
Sub UsedRangeExample3()
Dim oSheet As Worksheet
Dim oSheetUsedRange As Range
'create a variable that refers to another sheet
VB.NET PDF Page Delete Library: remove PDF pages in vb.net, ASP.
this RasterEdge XDoc.PDF SDK, you can simply delete a single page from a PDF document using VB.NET or remove any page from a PDF document and save to local
rotate pdf page; how to permanently rotate pdf pages
C# PDF Page Insert Library: insert pages into PDF file in C#.net
those page processing functions, such as how to merge PDF document files by C# code, how to rotate PDF document page Add and Insert Blank Page to PDF File in
reverse page order pdf; pdf rotate single page and save
153
Set oSheet = Workbooks("MYBOOK.XLS").Worksheets("Sheet1")
'quality the UsedRange function with the variable
Set oSheetUsedRange = oSheet.UsedRange
'statements that use OSheetUsedRange
End Sub
One of the problems with theUsedRangefunction is that in Excel 5 and 7 it will return cells
that don't have entries in the far right columns or the bottom rows.  This is because Excel
remembers that these rows or columns were once in use although you may have shrunk your
sheet via deleting rows or columns.  Saving the workbook will reset the used range, however this
often is not desirable.
The following example overcomes this problem by using a function that checks for the last row
and column with entries and then returns the range from cell A1 to the intersection of the last row
and column.
Sub UsedRangeExample4()
Dim tempRange As Range
Set tempRange = RangeToUse(ActiveSheet)
tempRange.Select
End Sub
Function RangeToUse(anySheet As Worksheet) As Range
'this function returns the range from cells A1 to cell which is the
'intersection of the last row with an entry and the last column with an entry.
Dim I As Integer, c As Integer, r As Integer
With anySheet.UsedRange
I = .Cells(.Cells.Count).Column + 1
For c = I To 1 Step 
-
1
If Application.CountA(anySheet.Columns(c)) > 0 _
Then Exit For
Next
I = .Cells(.Cells.Count).Row + 1
For r = I To 1 Step 
-
1
If Application.CountA(anySheet.Rows(r)) > 0 Then _
Exit For
Next
End With
With anySheet
Set RangeToUse = .Range(.Cells(1, 1), .Cells(r, c))
End With
End Function
9.11.21 Restricting A Selection To The Cells In The Sheet's
Used Range
C# PDF Page Delete Library: remove PDF pages in C#.net, ASP.NET
doc.Save(outPutFilePath); Related APIs (PDFDocument.cs): public override void DeletePage(int pageId). Description: Delete specified page from the input PDF file
rotate pdf page permanently; rotate all pages in pdf preview
VB.NET PDF Page Insert Library: insert pages into PDF file in vb.
outPutFilePath As String = Program.RootPath + "\\" Output.pdf" Dim doc1 doc2.InsertPage(page, pageIndex) ' Output the new document. doc2.Save(outPutFilePath
rotate one page in pdf; how to rotate a pdf page in reader
154
Sometimes your code may need to take some action on every cell that the user selects.  For
example, check each cell's value or modify each cell if it has an entry.  However, it is very easy
for the user to select an entire row or column.  If a column, then your code will check many
thousands of cells instead of the few that are in the sheet's used range.  The following two
examples illustrate ways to do this:
Example 
-
if selection is always on the active sheet:
Dim rangeToChk As Range
'restrict the range to the intersect of the selection and the active
'sheet's used range
Set rangeToChk = Intersect(Selection, ActiveSheet.UsedRange)
'code that uses the range variable rangeToChk, for example:
Dim cell As Range
For Each cell In rangeToCheck
'do something to each cell or check cell and do something
Next
Example 2 
-
if the selection can be on any sheet in any workbook
Dim anyRange As Range
'get a range from the user via an input box
On Error Resume Next
Set anyRange = Application.InputBox( _
prompt:="Select cells for processing", _
Type:=8, default:=Selection.Address)
On Error GoTo 0
'if no range selected, stop
If anyRange Is Nothing Then Exit Sub
'restrict the range to the intersect of anyRange and the used range
'on the sheet containing anyRange
Set anyRange = Intersect(anyRange, anyRange.Parent.UsedRange)
'code that uses the range variable anyRange, for example:
Dim cell As Range
For Each cell In anyRange
C# PDF Page Extract Library: copy, paste, cut PDF pages in C#.net
int pageIndex = 2; doc.UpdatePage(page, pageIndex); // Save the PDFDocument. String outputFilePath = Program.RootPath + "\\" Output.pdf"; doc.Save
rotate pages in pdf permanently; how to rotate all pages in pdf
C# PDF Convert to Tiff SDK: Convert PDF to tiff images in C#.net
Description: Convert to DOCX/TIFF with specified zoom value and save it into stream. Parameters: zoomValue, The magnification of the original PDF page size.
rotate single page in pdf; reverse page order pdf online
155
'do something to each cell or check cell and do something
Next
9.11.22 Using The Intersect Method With Ranges
Once important use of theIntersect method is to restrict the selection to just cells in the used
range.  This is very important if the user can select an entire column or row and you must test or
take action each cell in the selection:
Dim rangeToCheck As Range
Set rangeToCheck = Intersect(Selection, _
ActiveSheet.UsedRange)
You can also use theInsert method to determine if a cell is within a range:
If Not Intersect(ActiveCell, Range("A1:G5")) Is Nothing Then
'action to take if cell is in the range
End If
or
If Intersect(ActiveCell, Range("A1:G5")) Is Nothing Then
'action to take if cell is not in the range
End If
9.11.23 Getting The Intersection Of Two Ranges
Assume that you have a table in Excel that looks like the following:
Sales Person Territory Main Customer
Bill Southwest K
-
Mart
Linda Northeast U
-
Haul
John West Coast Disney Land
And, that you have assigned the following range names:
TheTable the cells containing all the above
SalesPerson the cell containing the words "Sales Person"
C# Create PDF from Tiff Library to convert tif images to PDF in C#
Description: Convert to PDF with specified zoom value and save it into stream. DocumentType.PDF. zoomValue, The magnification of the original tiff page size.
how to rotate page in pdf and save; rotate individual pages in pdf reader
C# PDF Convert to Word SDK: Convert PDF to Word library in C#.net
Description: Convert to DOCX/TIFF with specified zoom value and save it into stream. Parameters: zoomValue, The magnification of the original PDF page size.
rotate a pdf page; save pdf after rotating pages
156
Territory the cell containing the word "Territory"
Customer The cell containing the words "Main Customer"
Assuming that you are on the sheet containing the above information, the following assigns  the
range containing just the entries in the territory column but excluding the label "Territory"  to a
range variable and selects this range:
Sub IntersectExample1()
Dim rTable As Range, rTemp As Range
Dim rTerritoryList
As Range
Set rTable = Range("TheTable")
'specify the intersection of the column containing the range name and
'the table.  '
Set rTemp = _
Intersect(Range("Territory").EntireColumn, rTable)
'set a variable to the range which is from the second cell of the
'intersection to the last cell
Set rTerritoryList = Range(rTemp.Cells(2), _
rTemp.Cells(rTemp.Cells.Count))
'select the range
rTerritoryList.Select
End Sub
The following does the same thing, but  uses the With statement to avoid repeating the references
and also minimized the range variables.  Notice that there are periods in front of the wordCells.
Sub IntersectExample2()
Dim rTerritoryList As Range
'specify the intersection  of the column containing the range name and
'the table.   A "_" is used to continue the statement onto the next line
With Intersect(Range("Territory").EntireColumn, _
Range("TheTable"))
'set a variable to the range which is from the second cell of the
'intersection to the last cell
'Notice that there are periods in front of the word Cells.
Set rTerritoryList = Range(.Cells(2), _
.Cells(.Cells.Count))
End With
157
'select the range
rTerritoryList.Select
End Sub
The following illustrates how to do the same task, except that the active sheet is not the sheet
containing the ranges.  Also, this example displays the values of the individual cells instead of
selecting the range:
Sub IntersectExample3()
Dim rTerritoryList As Range, cell As Range
Dim WS As Worksheet
'set a variable to refer to the sheet containing the range names
Set WS = Workbooks("MYBOOK.XLS").Sheets("sheet1")
'qualify ALL the Range statements with the sheet reference
With Intersect(WS.Range("Territory").EntireColumn,
WS.Range("TheTable"))
'set a variable to the range which is from the second cell of the
'intersection to the last cell
'Notice that there are periods in front of the word Cells.
Set rTerritoryList = WS.Range(.Cells(2), _
.Cells(.Cells.Count))
End With
'use a For Each..Next loop to display each cell's value
'note that cell is a range name and not a keyword to Visual Basic
For Each cell In rTerritoryList
MsgBox cell.Value
Next
End Sub
If you have to do tasks like the above repeatedly, then you can write sub routines that do the task
and return the range in question.  In this example, we've colored the sub routine namesred for
easy reference
Sub IntersectExample4()
Dim rTerritories As Range, rCustomers As Range
'call subroutine to get the range.  Note that this statement supplies
' the empty range rTerritory, and that the subroutine returns a range in it.
'Also, the names of the book, sheet, and ranges are supplied to the routine
Get_Range
"MYBOOK.XLS", "sheet1", "Territory", _
158
"TheTable", rTerritories
'display each cell's value.  In a real world application, action could be
' taken on each cell in the range
Display_Info
rTerritories
'repeat again for the customer information
Get_Range
"MYBOOK.XLS", "sheet1", "Customer", _
"TheTable", rCustomers
Display_Info
rCustomers
End Sub
Sub
Get_Range
(wbName As String, wsName As String, _
cellRangeName As String, bigRange As String,
rangeToReturn As Range)
Dim WS As Worksheet
'set a variable to refer to the sheet containing the range names
Set WS = Workbooks(wbName ).Sheets(wsName )
'qualify ALL the Range statements with the sheet reference
With Intersect(WS.Range(cellRangeName ).EntireColumn,
WS.Range(bigRange ))
'set  variable to the range which is from the second cell of the
'intersection to the last cell
'Notice that there are periods in front of the word Cells, which
'cause them to refer back to the With object above
'Also, this changes the range in the calling routine's variable
Set rangeToReturn = WS.Range(.Cells(2), _
.Cells(.Cells.Count))
End With
End Sub
Sub
Display_Info
(anyRange As Range)
Dim cell As Range
For Each cell In anyRange
MsgBox cell.Value
Next
End Sub
159
9.11.24 Union Method Problem
TheUnion method does not do a truly logical "union".  For example.......
The range A1:B10 is 20 cells.
The range B10:C19 is 20 cells.
There is a single cell, B10, common to both ranges.
The "logical" (and "Logical") definition of the union of these two ranges would be a range of 39
cells (20 cells in A1:B10 plus 20 cells in B10:C19 minus the 1 cell common to the two sets).
However,Union returns a range of 40 cells:
Dim uRange As Range
Set uRange = Union(Range("A1:B10"), _
Range("B10:C19"))
MsgBox uRange.Cells.Count
returns 40 cells, not 39.
This "oddity" manifests itself with "For Each" loops, too.
However, the problem is slightly worse than what is described, as it is not consistent.  The above
does not appear to apply to single row and single column ranges. For example, the Union of
A1:A5 and A5:A10 returns 10 cells, the number of cells in the logical union.
The work around is to do an intersection of the ranges, and then check each cell as you process it
to see if it is already in the union and exclude it if it is – if there is a chance that the union of two
ranges overlap.  The following illustrates this
Dim tRange As Range, uRange As Range
Dim cell As Range
'do a normal Union into a temporary range variable
Set tRange = Union(Range("A1:b10"), _
Range("b10:c19"))
'initialize the Union range To the first cell In the above range
Set uRange = tRange.Cells(1)
'turn on error handling
On Error Resume Next
For Each cell In tRange
'see if the cell is already in the Union range
160
iRange = Intersect(cell, uRange)
'If it is not, add it
If iRange Is Nothing Then _
Set uRange = Union(cell, uRange)
Next
On Error GoTo 0
MsgBox uRange.Cells.Count
Please note that you end up with multiple range areas instead of one area.
9.11.25 Limiting Access To Cells
You can use the scroll area method to limit access to certain rows and columns:
Sub RestrictScrollArea()
With ThisWorkbook.WorkSheets("Sheet1")
.ScrollArea = .UsedRange.Address
End With
End Sub
This routine restricts the users from scrolling outside the used area on sheet 1.  It restricts both
rows & columns. If you have data on the sheet that you do not want the users to see, then change
".UsedRange.Address" to the address you want (ex: "A1:M80" 
-
including the quotes).
9.11.26 Hiding The Cursor Frame / Preventing Cell Selection
You can hide the cursor and prevent cell selection very easily.  Simply set the worksheet
propertyEnableSelection toxlNoSelection and turn protection on:
WithWorksheets(1)
.EnableSelection = xlNoSelection
.Protect Contents:=True, UserInterfaceOnly:=True
End With
9.11.27 Preventing Cell Drag And Drop
To prevent a user from dragging an unprotected cell to another unprotected shell on a protected
sheet use:
Application.CellDragAndDrop = False
9.11.28 Using The Merge Command In Your Code
Documents you may be interested
Documents you may be interested