display pdf in asp net c# : Rotate pdf pages by degrees application SDK cloud windows wpf .net class 1200%20macro_examples39-part157

391
19. WINDOWS
19.1 Determining The Visible Range In A Window
The following will set a range variable equal to the visible cells in a window
Sub visibleRange()
Dim visRange As Range
Set visRange = ActiveWindow.VisibleRange
MsgBox "the visible range is " & visRange.Address
End Sub
The first row number would be:
firstRow = visRange.Rows(1).Row
The last row number would be
lastRow = visRange.Rows(visRange.Rows.Count).Row
Please note that if just a tiny fraction of a row or a column is visible, then it will be included in
the visible range.
How to set the top left visible cell
The simplest way to set the top left visible cell is to use Application.Goto:
Application.Goto Range("E5"), True
However, the above approach changes the active cell.  The following achieves the same result
(setting the top left cell to E5), but sets the active cell to what it was before the statement ran:
Dim cell As Range
'store the active cell in a variable
Set cell = ActiveCell
Application.Goto Range("E5"), True
'reactivate the cell
cell.Select
Another way to change the top cell is to set the scroll properties of the window:
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollColumn = 3
The above sets the top cell to cell C5.
Rotate pdf pages by degrees - 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 single page in pdf file; how to reverse pages in pdf
Rotate pdf pages by degrees - 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 page in pdf and save; how to rotate all pages in pdf at once
392
19.2 How To Make A Range The Visible Range In A
Window
To set what is visible on the screen, do this, useApplication.GoTo and turn screen updating on
and off:  Also set thescroll property of theGoTo method toTrue.
This sets a range variable to the desired range
Set myRange = Workbooks("xlmisc10h.xls"). _
Worksheets("NewName").Range("M200")
'this goes to the above range and makes it the top left range on the screen
Application.Goto myRange, True
Application.ScreenUpdating = True
'this makes certain only a single cell is selected
ActiveCell.Select
Application.ScreenUpdating = False
The above will automatically switch workbooks and windows.
If you want just the range visible on the screen, use the following statement,
ActiveWindow.Zoom = True
which will fit the screen as closely as possible to the range.
19.3 Automatically Displaying A Sheet In Full Screen
Mode
You can have Excel automatically go into full screen mode when a particular sheet is activated,
and return to normal mode when it is deactivated.  To do this:
Go to the worksheet's code module by right clicking on the sheet tab and selecting view code or
by double
-
click the worksheet object in the Visual Basic project window
Select worksheet in the left dropdown box and Activate in the right dropdown box.
Place the following statement in the macro that appears
Application.DisplayFullScreen = True
In the right dropdown select deactivate and place the following statement in it
Application.DisplayFullScreen = False
C# TIFF: How to Rotate TIFF Using C# Code in .NET Imaging
C#.NET PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET VB.NET How-to, VB.NET PDF, VB.NET Word, VB In general, you are able to rotate any page of
how to rotate a page in pdf and save it; pdf rotate pages and save
C# PDF: PDF Document Viewer & Reader SDK for Windows Forms
Roate90: Rotate the currently displayed PDF page 90 degrees clockwise. Rotate180: Rotate the currently displayed PDF page 180 degrees clockwise.
how to reverse page order in pdf; how to permanently rotate pdf pages
393
19.4 Disabling Window Minimization
The following statement will prevent windows from being minimized:
ActiveWindow.EnableResize = False
19.5 Displaying The Full Screen Without The Full
Screen Toolbar
The following will do the equivalent of selecting View, Full Screen and then hiding the full
screen toolbar if it appears.  Since Excel works out which toolbars it should display AFTER your
routine has finished.  You therefore need something like:
Sub Show_Full_Screen()
Application.DisplayFullScreen = True
Application.OnTime Now, ContinueIt
End Sub
Sub ContinueIt()
Toolbars("Full Screen").Visible = False
End Sub
19.6 Determining The Window State
The following returns the window state – maximized, minimized or normal of the Excel
application.
Sub ReturnWindowState()
Dim szState As String
Select Case Application.WindowState
Case xlMaximized
szState = "Maximized"
Case xlMinimized
szState = "Minimized"
Case xlNormal
szState = "Normal"
End Select
MsgBox "Window state is: " & szState
End Sub
19.7 Finding Out Which Cell Is In The Upper Left
Corner
ActiveWindow.VisibleRange(1, 1).Address
will do it.
VB.NET TIFF: Rotate TIFF Page by Using RaterEdge .NET TIFF
formats are: JPEG, PNG, GIF, BMP, PDF, Word (Docx reImage1, 100) REFile.SaveImageFile( reImage1, "c:/rotate.png", New TIFF page(s), reorder TIFF pages ordered or
pdf rotate page; how to reverse pages in pdf
C# Word: C#.NET Word Rotator, How to Rotate and Reorient Word Page
to rotate all MS Word document pages by 90 viewer application which can help me rotate Word page by powerful & profession imaging controls, PDF document, image
rotate pdf page by page; rotate one page in pdf
394
19.8 Getting a Window's Handle and Other
Information
The following two articles will help you find a Window's handle and other attributes of the
window:
http://support.microsoft.com/support/kb/articles/Q147/6/59.ASP
HOWTO: Get a Window Handle Without Specifying an Exact Title
http://support.microsoft.com/support/kb/articles/Q112/6/49.ASP
Howto: Get a Window's Class Name and Other Attributes
19.9 Getting The Monitor's Screen Resolution
The following code will return the monitor's settings:
'place these statements at the top of your code
Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As LongAs Long
Const SM_CYSCREEN As Long = 1
Const SM_CXSCREEN As Long = 0
Sub GetScreenDimensions()
Dim lWidth As Long
Dim lHeight As Long
lWidth = GetSystemMetrics(SM_CXSCREEN)
lHeight = GetSystemMetrics(SM_CYSCREEN)
MsgBox "Screen Width = " & lWidth & " " & _
"Screen Height = " & lHeight
End Sub
19.10 Getting The Screen Resolution
To get the screen resolution, use the following functions:
'These three functions need to be declared at the top of the module
'each function needs to be on a single line
DeclareFunction GetDeviceCapsLib "gdi32" (ByVal hdcAsLong,ByVal nIndexAsLong)
As Long
DeclareFunction GetDC Lib "user32" (ByVal hwndAs Long) As Long
VB.NET Word: VB.NET Code to Rotate Word Page Within .NET Imaging
Here, we can recommend you VB.NET PDF page rotating tutorial and multi 0 to 360 degrees using VB code; Able to rotate multiple desired Word pages at the
pdf rotate one page; rotate all pages in pdf and save
C# HTML5 Viewer: Load, View, Convert, Annotate and Edit PDF
web viewer, users can click rotation button to rotate PDF page 90, 180 and 270 degrees in clockwise erase PDF text, erase PDF images and erase PDF pages online
pdf page order reverse; how to rotate just one page in pdf
395
DeclareFunction ReleaseDC Lib "user32" (ByVal hwndAs Long, ByVal hdcAsLong)As
Long
Const HORZRES = 8
Const VERTRES = 10
'this subroutine illustrates using the function
Sub GetScreenSize()
MsgBox ScreenResolution()
End Sub
Function ScreenResolution()
Dim lRval As Long
Dim lDc As Long
Dim lHSize As Long
Dim lVSize As Long
lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORZRES)
lVSize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
ScreenResolution = lHSize & "x" & lVSize
End Function
19.11 Hiding A Worksheet While A Dialog Or
UserForm Is Displayed
If you do not want your user to see the active worksheet while he or she is filling out a dialog or
userform, then you can minimize that worksheet's window by using the statement:
ActiveWindow.WindowState = xlMinimized
To restore the window, setWindowState to eitherxlMaximized orxlNormal.
If you have multiple workbooks open and want to minimize all windows, then you can use the
following code instead:
Dim w As Window
'set on error to ignore errors in case there are hidden workbooks
On Error Resume Next
For Each w In Windows
w.WindowState = xlMinimized
Next
'turn on error off
Customize, Process Image in .NET Winforms| Online Tutorials
Click "Flip Vertical" to rotate images 180 degrees vertically; More Tutorials! Find more user guides with RasteEdge .NET Image in .NET Winforms applications!
how to change page orientation in pdf document; rotate all pages in pdf preview
Process Images in Web Image Viewer | Online Tutorials
the order of images & file pages by dragging & used document types are supported, including PDF, multi-page This JavaScript API is used to rotate the current
save pdf rotate pages; rotate individual pdf pages reader
396
On Error GoTo 0
Please note that this changes the active workbook, and obviously the active sheet.  To reactivate
the originally active workbook and sheet, use the following code:
Dim w As Window
Dim wb As Workbook
Dim ws As Object
Set wb = ActiveWorkbook
Set ws = ActiveSheet
'above code would go here
wb.Activate
ws.Select
19.12 Hiding And Showing Windows
It is fairly easy to hide a workbook if it has just one window and that window is the active
window:
ActiveWindow.Visible = False
However, this requires that you activate the workbook, and assumes that there is just one window
for that workbook.  The following is a much safer way hide a workbook, does not require that you
activate it, and it can handle multiple windows on the workbook.
Dim w As Window
For Each w In Workbooks("My book.XLS").Windows
w.Visible = False
Next
To show the first window on a workbook, and close all other windows on a workbook, use code
like the following
Dim I As Integer
'loop backwards to the first window as windows will be closed
For I = Workbooks("My book.XLS").Windows.Count To 1 Step 
-
1
If I > 1 Then
'if not the first window, close the window
Workbooks(1).Windows(I).Close
Else
'if the first window, make it visible
C# Image: C# Image Web Viewer Processing Tutorial; Process Web Doc
Basic .NET program and process web pages within image In order to rotate a current web image or powerful & profession imaging controls, PDF document, tiff
how to rotate one page in pdf document; rotate pdf pages individually
397
Workbooks(1).Windows(I).Visible = True
End If
Next
19.13 How To Change The Excel Window Caption
to change the caption that says "Microsoft Excel at the top when Excel is open, use a statement
like the following:
Application.Caption = "My Title"
19.14 How To Keep The Workbook Window
Maximized
You can do this with theWorkbook_WindowResize event procedure. Put the following code in
the workbook code module.
Private Sub Workbook_WindowResize(ByVal Wn As Window)
Wn.WindowState = xlMaximized
End Sub
19.15 How To Maximize The Window
The following illustrate two ways to maximize the workbook window:
Windows("book1.xls").WindowState = xlMaximized
or
ActiveWindow.WindowState = xlMaximized
19.16 Positioning The Excel Window
The following code positions the Excel window on the left half of the screen:
Sub PositionOnTheLeftHalf()
Dim dWidth As Double, dHeight As Double
With Application
.ScreenUpdating = False
'get maximum size of the application window
.WindowState = xlMaximized
dWidth = .Width
dHeight = .Height
'make Excel a window
398
.WindowState = xlNormal
'position top left corner
.Top = 0
.Left = dWidth / 2
'size the screen
.Height = dHeight
.Width = dWidth / 2
End With
End Sub
The following code positions the Excel window in the middle of the screen:
Sub InTheMiddle()
Dim dWidth As Double, dHeight As Double
With Application
.ScreenUpdating = False
'get maximum size of the application window
.WindowState = xlMaximized
dWidth = .Width
dHeight = .Height
'make Excel a window
.WindowState = xlNormal
'position top left corner
.Top = dHeight / 4
.Left = dWidth / 4
'size the screen
.Height = dHeight / 2
.Width = dWidth / 2
End With
End Sub
19.17 Setting All Worksheets To The Same Scroll
Position
The following will set all worksheets in a workbook to the top scroll position:
Sub top()
Dim wksht As Worksheet
399
Application.ScreenUpdating = False
For Each wksht In ActiveWorkbook.Worksheets
wksht.Activate
Range("A1").Select
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Next
End Sub
The following will allow you to control screen scrolling through a spinner button on a userform
You will first need to set theMin property of the spin button to 
-
1 and the Max property to 1.
Then use the following code in the userform's code module
Private Sub SpinButton1_Change()
ActiveWindow.SmallScroll Up:=SpinButton1.Value
Application.EnableEvents = False
SpinButton1.Value = 0
Application.EnableEvents = True
End Sub
If you want to use scrollbar controls instead of SpinButtons, this technique works very well and
allows horizontal and vertical scrolling while a UserForm is displayed.
1. Add a horizontal scrollbar control, name it ScrollBarColumns, set its Min to 1 and its Max to
256.
2. Add a vertical scrollbar control, name it ScrollBarRows, set its Min to 1 and its Max to 65536.
3. Add these two subs to the code module of the UserForm:
Private Sub ScrollBarColumns_Change()
ActiveWindow.ScrollColumn = ScrollBarColumns.Value
End Sub
Private Sub ScrollBarRows_Change()
ActiveWindow.ScrollRow = ScrollBarRows.Value
End Sub
19.18 Sizing A Worksheet To Fit The Screen
Because of different screen resolutions and differences in monitor settings, no two monitors are
just alike.  If you need to fit part of a worksheet to fit exactly to the visible screen, then do the
following:
'select the range to be viewed:
Range("A1:H10").Select
'set the window's zoom property to fit this range.  Please note that Excel
'ill normally be able to fit the screen to match either the columns or the
'rows, which ever demands the smallest zoom setting.
400
ActiveWindow.Zoom = True
'select a single cell so that the entire range is not selected:
Range("A1").Select
Other Visual Basic statements that are also useful are:
'maximize the size of Excel in Windows
Application.WindowState = xlMaximized
'maximize the window
ActiveWindow.WindowState = xlMaximized
19.19 Synchronizing Windows On Different Sheets
The following code will set all windows to the same scroll setting, effectively synchronizing
them:
Sub SynchEm()
Dim sr As Long, sc As Long, I As Integer
sr = Windows(1).ScrollRow
sc = Windows(1).ScrollColumn
For i = 2 To Windows.Count
Windows(i).ScrollRow = sr
Windows(i).ScrollColumn = sc
Next i
Application.ScreenUpdating = True
End Sub
You can run the above code from the workbook SheetSelectionChange event procedure so that
synchronization occurs automatically as new cells are selected. If you have a prior version of
Excel, you would need to run the macro from a toolbar button or Ctrl+key shortcut to achieve
synchronization after a move in the active window,
19.20 Unhiding Hidden Workbooks
If you have a hidden workbook, the following is the way to unhide it if you are uncertain how
many windows have been opened on the file:
Workbooks("Book1.xls").Windows(1).Visible = True
If you are unsure how many windows have been opened on a workbook, you can find out with a
statement like the following:
WindowCount =ActiveWorkbook.Windows.Count
Documents you may be interested
Documents you may be interested