display pdf in asp net c# : Rotate pdf pages SDK Library service wpf asp.net winforms dnn 1200%20macro_examples42-part161

421
Application.OnKey "^{d}", ""        'Fill Down
Application.OnKey "^{r}", ""        'Fill Right
Application.OnKey "^{ENTER}", ""    'Fill Selection
Application.OnKey "^{f}", ""        'Find
Application.OnKey "^{g}", ""        'GoTo
Application.OnKey "^{h}", ""        'Replace
Application.OnKey "^{y}", ""        'Repeat last action
Application.OnKey "^{z}", ""        'Undo
'Customize Insert functions
Application.OnKey "^{k}", ""        'Insert hyperlink
Application.OnKey "^+{+}", ""       'Insert blank cells
'Customize Format functions
Application.OnKey "^{1}", ""        'Format cells
Application.OnKey "^+{~}", ""       'Apply general format
Application.OnKey "^+{$}", ""       'Apply currency format
Application.OnKey "^+{%}", ""       'Apply percentage format
Application.OnKey "^+{^}", ""       'Apply exponential format
Application.OnKey "^+{#}", ""       'Apply date format
Application.OnKey "^+{@}", ""       'Apply time format
Application.OnKey "^+{!}", ""       'Apply Number format
Application.OnKey "^+{&}", ""       'Apply Outline Border
Application.OnKey "^+{_}", ""       'Remove Borders
Application.OnKey "^{b}", ""        'Toggle Bold format
Application.OnKey "^{i}", ""        'Toggle Italic format
Application.OnKey "^{u}", ""        'Toggle Underline format
Application.OnKey "^{5}", ""        'Toggle Strikethrough
'format
Application.OnKey "^{9}", ""        'Hide rows
Application.OnKey "^{0}", ""        'Hide columns
Application.OnKey "^+{(}", ""       'Unhide rows
Application.OnKey "^+{)}", ""       'Unhide columns
'Customize Miscellaneous functions
Application.OnKey "^{
-
}", ""        'Delete selection
Application.OnKey "^{DELETE}", ""   'Delete to the end
Application.OnKey "+{ENTER}", ""    'Complete and move up
Application.OnKey "%{ENTER}", ""    'New Line in a cell
Application.OnKey "{TAB}", ""       'Complete and move right
Application.OnKey "+{TAB}", ""      'Complete and move left
Application.OnKey "%{=}", ""        'Insert AutoSum Formula
Application.OnKey "^{;}", ""        'Insert Date
Application.OnKey "^+{:}", ""       'Insert Time
Rotate pdf pages - 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#
pdf rotate single page and save; rotate pdf pages individually
Rotate pdf pages - 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
rotate all pages in pdf preview; rotate individual pages in pdf reader
422
Application.OnKey "^+{""}", ""      'Copy value from above
Application.OnKey "^{'}", ""        'Toggle Display
Application.OnKey "^{`}", ""        'Copy formula from above
Application.OnKey "^{a}", ""        'Display formula pane
Application.OnKey "^+{a}", ""       'Insert argument names
'Customize Transition Navigation Keys
With Application
.TransitionMenuKey = ""
.TransitionMenuKeyAction = xlExcelMenus
.TransitionNavigKeys = False
End With
End Sub
Now if you want to enable these keys, then you would need to exclude the last argument.  For
example:
Application.OnKey "{F1}"
23.2 Redefining The Plus And Minus Keys
This is an interesting way to increase values in cells 
-
by redefining the plus and minus keys to
add or subtract one from the value in a cell.  Don't forget to reset the keys when done!
Sub KeysOn()
Application.OnKey "{+}","IncrementCell"
Application.OnKey "
-
","DecrementCell"
End Sub
Sub KeysOff
Application.OnKey "{+}"
Application.OnKey "
-
"
End Sub
Sub IncrementCell()
If IsNumeric(ActiveCell.ValueThen
ActiveCell.Value = ActiveCell.Value+1
End If
End Sub
Sub DecrementCell()
If IsNumeric(ActiveCell.ValueThen
ActiveCell.Value = ActiveCell.Value
-
1
End If
End Sub
23.3 Disabling Almost All Of The Shortcut Keys
The following code will disable or enable almost all of the Excel special keys such at CTL
-
F for
find, or CTL
-
F3 for creating range names.  You can disable or enable specific keys to tailor the
VB.NET PDF Page Delete Library: remove PDF pages in vb.net, ASP.
Page: Delete Existing PDF Pages. |. Home ›› XDoc.PDF ›› VB.NET PDF: Delete PDF Page. How to VB.NET: Delete Consecutive Pages from PDF.
reverse page order pdf online; how to rotate a single page in a pdf document
C# PDF Page Delete Library: remove PDF pages in C#.net, ASP.NET
Page: Delete Existing PDF Pages. Provide C# Users with Mature .NET PDF Document Manipulating Library for Deleting PDF Pages in C#.
pdf page order reverse; how to rotate all pages in pdf
423
code to your needs.  For more information on specifying keys, highlight the keywordOnKey and
press F1 for help.  If you test this code, make certain you always have a way to run the macro that
enables the keys.
Sub DisableKeys()
Disable_Or_Enable_Keys "disable"
End Sub
Sub Enable_Keys()
Disable_Or_Enable_Keys
End Sub
Sub Disable_Or_Enable_Keys(Optional setOption)
'disables or resets ALL keys
'if argument is "disable" then keys are disabled
'if no argument supplied, or it is not "disable" then keys are enabled
Dim Keys, I As Integer, J As Integer
Keys = Array("", "+", "^", "%", "+^", "+%", "^%", "^%+")
On Error Resume Next
With Application
For I = 1 To 8
'handle combination keys
For J = 1 To 12
If LCase(setOption) = "disable" Then
.OnKey Keys(I) & "{" & "F" & J & "}", ""
Else
.OnKey Keys(I) & "{" & "F" & J & "}"
End If
Next
If I > 2 Then
'"Normal" characters CAN be used!!
For J = 33 To 148
Select Case J
Case 123 To 145, 37, 39, 40 To 43, 91 To 94
Case Else
If LCase(setOption) = "disable" Then
.OnKey Keys(I) & Chr$(J), ""
Else
.OnKey Keys(I) & Chr$(J)
End If
End Select
Next
End If
Next
'handle special keys such as CTL
-
pgup or CTL
-
tab
VB.NET PDF Page Insert Library: insert pages into PDF file in vb.
Page: Insert PDF Pages. |. Home ›› XDoc.PDF ›› VB.NET PDF: Insert PDF Page. Add and Insert Multiple PDF Pages to PDF Document Using VB.
rotate pdf page; save pdf rotate pages
C# PDF Page Insert Library: insert pages into PDF file in C#.net
how to merge PDF document files by C# code, how to rotate PDF document page, how to delete PDF page using C# .NET, how to reorganize PDF document pages and how
pdf expert rotate page; rotate pages in pdf expert
424
If LCase(setOption) = "disable" Then
.OnKey "^{pgup}", ""
.OnKey "^{pgdn}", ""
.OnKey "^{tab}", ""
.OnKey "^+{tab}", ""
Else
.OnKey "^{pgup}"
.OnKey "^{pgdn}"
.OnKey "^{tab}"
.OnKey "^+{tab}"
End If
End With
End Sub
23.4 Disabling Shortcut Menu Commands
The names of the row and column short cut menus are "Row" and "Column".  The name of the
cell pop
-
up menu is "Cell".  To disable them use a statement like
CommandBars("Row").Enabled = False
CommandBars("Column").Enabled = False
CommandBars("Cell").Enabled = False
However, there is a trap.  There are three extra pop up menus called Cell, Row and Column that
operate in the PageBreak view.  To get to them you can use something like:
CommandBars(CommandBars("Row").Index + 3).Enabled = False
Ther following is a way to disable the Cell popups:
Dim
cellIndex As Long
'store the indexi to the cell popup commandbar
cellIndex =
Application
.
CommandBars
("cell").
Index
Application
.
CommandBars
(cellIndex).
Enabled
=
False
Application
.
CommandBars
(cellIndex + 3).
Enabled
=
False
Be sure to re
-
inable the commandbars you disable as the disable setting is not reset when Excel
closes.
23.5 Making shortcut Keys Sheet Specific
Shortcut keys are always global in scope with Excel.  However, if you'd like a macro run by a
shortcut key to behave differently based on what sheet is currently active, that's very easy to do.
Here is an example.
Let us say this macro is assigned to a short cut key, for example Alt
-
A.  It will run specific code
based on the sheet name.
C# PDF Page Extract Library: copy, paste, cut PDF pages in C#.net
C#.NET PDF Library - Copy and Paste PDF Pages in C#.NET. Easy to C#.NET Sample Code: Copy and Paste PDF Pages Using C#.NET. C# programming
how to save a pdf after rotating pages; how to rotate all pages in pdf at once
VB.NET PDF Page Replace Library: replace PDF pages in C#.net, ASP.
C#.NET convert PDF to text, C#.NET convert PDF to images, C#.NET PDF file & pages edit, C#.NET PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET
reverse page order pdf online; pdf reverse page order online
425
Sub MultiSheetMacro()
Select Case ActiveSheet.Name
Case "Sheet1"
' Run code here that is specific to Sheet1
Case "Sheet2"
' Run code here that is specific to Sheet2
Case Else
MsgBox "Sorry, this macro doesn't apply to this sheet"
End Select
End Sub
You can add as many sheet
-
specific cases as you want, and you don't have to put all the code
inside the Select Case statement.  You can create separate procedures for each sheet and then
simply call those procedures from the appropriate Case.
To insure that the sheet name is recognized, put Option Compare Text at the top of your code.
Or, convert the sheet name to upper case and compare to upper case names:
Sub MultiSheetMacro()
Select Case Ucase(ActiveSheet.Name)
Case "SHEET1"
' Run code here that is specific to Sheet1
Case "SHEET2"
' Run code here that is specific to Sheet2
Case Else
MsgBox "Sorry, this macro doesn't apply to this sheet"
End Select
End Sub
C# PDF Page Replace Library: replace PDF pages in C#.net, ASP.NET
Page: Replace PDF Pages. |. Home ›› XDoc.PDF ›› C# PDF: Replace PDF Pages. C#.NET PDF Library - Replace PDF Pages in C#.NET.
how to rotate a pdf page in reader; pdf reverse page order preview
VB.NET PDF - WPF PDF Viewer for VB.NET Program
C#.NET convert PDF to text, C#.NET convert PDF to images, C#.NET PDF file & pages edit, C#.NET PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET
rotate individual pdf pages reader; pdf rotate single page reader
426
24. TOOLBARS
24.1 Using Attached Toolbars
In Excel you can create your own toolbar by selecting View, Toolbars, and using the New
toolbar option available on the dialog that appears.  And, you can assign buttons to the toolbar by
selecting the Customize option.  If you choose the macro category of buttons, you can assign your
own macros to buttons on the toolbar.
Such a custom toolbar is typically only useful for a particular workbook.  You can attach the
toolbar to a workbook by doing the following:
Choose View, Toolbars, Customize
Click the Attach button and select the custom toolbar and copy the custom
toolbar to the workbook
If you modify an attached toolbar, you need to repeat the above steps to attach the new version.
Otherwise, the modifications will be lost.
There are several problems with attached toolbars:
The toolbar doesn't disappear when you close the workbook
The toolbar doesn't appear when you open the toolbar
If you distribute the workbook to others, change the toolbar, and re
-
distribute
it, the users may not see the new toolbar.
To solve these problems, use macros like the following, assuming that your toolbar is named
"MyToolBar", and that it has two buttons on it:
Sub Auto_Open()
SetUpButtons
End Sub
Sub SetUpButtons()
With CommandBars("MyToolBar")
.Visible = True
.Controls(1).OnAction = "FirstMacro"
.Controls(2).OnAction = "SecondMacro"
End With
End Sub
Sub Auto_Close()
On Error Resume Next
CommandBars("MyToolBar").Delete
End Sub
427
24.2 Resetting The Macros On A Custom Toolbar
Excel allows you create a custom toolbar and attach it to a workbook.  However, if you give this
workbook to someone else, the toolbar buttons will refer back to the original workbook's path.
The result is a nasty error box saying a macro could not be found.  The buttons'OnAction
property still points to the original placement of the workbook, when the macros were made.  The
following code illustrates a neat way to solve this, and will work with any custom toolbar.
Sub Fix_Toolbar
'the above macro name should be included in your Auto_Open macro
'so that it is run each time the workbook is opened.
Dim tToolbar As String
Dim i As Integer
'put your toolbar name in place of Name of the toolbar
tToolbar = "Name of the toolbar"
'rotate through each of the buttons on the toolbar
For i = 1 To CommandBars(tToolbar).Controls.Count
'get the current OnAction, which includes the path
nName = CommandBars(tToolbar).Controls(i).OnAction
're
-
assign the macro name excluding the path
CommandBars(tToolbar).Controls(i).OnAction = _
Right(nName, Len(nName) 
-
InStr(nName, "!"))
Next i
End Sub
If you make corrections to an attached toolbar, you have to attach it again, or the corrections will
not be saved
24.3 Using A Macro To Create A Toolbar
The following macro illustrates the code needed to create a toolbar with several buttons on it,
with descriptive tooltips.  The face on the toolbar is set by theFaceID property.  The macro after
this one shows you how to find the Ids for over 2000 button faces.
Sub CreateAToolbar()
Const tBarName As String = "Tool Bar name"
'Delete CommandBar if it exists
428
On Error Resume Next
CommandBars(tBarName).Delete
On Error GoTo 0
'create CommandBar
CommandBars.Add Name:=tBarName
'define an object variable to refer to the CommandBar
With CommandBars(tBarName)
'add button use 1 to specify a blank custom face
With .Controls.Add(ID:=1)
.OnAction = "AddInfo"
'this adds the smiley FaceID
.FaceID = 59
.Caption = "Add Report Information"
End With
'add next button with a separator bar
With .Controls.Add(ID:=1)
.OnAction = "RemoveInfo"
'this adds the eraser FaceID
.FaceID = 47
.Caption = "Remove Report Information"
'this adds the separator bar
.BeginGroup = True
End With
'display the toolbar
.Visible = True
End With
End Sub
24.4 Using FaceIDs to specify a Toolbar Button Face
429
TheFaceID property of a control specifies the button face or image.  For example:
CommandBars("My toolbar).Controls(1).FaceID = 80
puts a button face with the letter "A" on the control.
The following macro creates a workbook that lists all of the available button FaceIDs:
Sub DisplayControlFaces()
Const tBarName As String = "Temp toolbar"
'add a new Workbook for the faces
Workbooks.Add
'Delete CommandBar if it exists
On Error Resume Next
CommandBars(tBarName).Delete
'create CommandBar
CommandBars.Add Name:=tBarName
'define an object variable to refer to the CommandBar
With CommandBars(tBarName)
'use an error trap to handle missing FaceIDs in the code below
On Error GoTo eTrap
'specify an ID of one for a blank custom button face
With .Controls.Add(ID:=1)
'change the button image through all that are available
For i = 1 To 5500
.FaceID = i
'copy face and paste to the worksheet
.CopyFace
ActiveSheet.Paste
430
'record the face ID
With ActiveCell.Offset(1, 0)
.Value = i
.HorizontalAlignment = xlLeft
End With
'increase counter and select next destination cell
J = J + 1
If J <= 5 Then
ActiveCell.Offset(0, 1).Select
Else
ActiveCell.Offset(3, 
-
5).Select
J = 0
End If
donext:
Next
End With
End With
'remove the commandbar as it is not needed
CommandBars(tBarName).Delete
Exit Sub
eTrap:
'not all FaceIDs exist.  This handles any missing ones
Resume donext
End Sub
24.5 Putting Custom Button Faces On Toolbar Buttons
The following macro creates a custom toolbar and then adds buttons to it using custom button
faces that have been saved on a sheet named "Button Faces".  To create custom faces:
Go to the Customize Dialog Box 
-
Select View, Toolbars, Customize
Select the button you want to edit.  Then right click on it to display the button
popup menu.  Select the Edit option and modify the button face.
With the button selected, right click on the button and select Copy Button Face
Exit the customize dialog and go to a worksheet where you can store the button
face.  The sheet name used in this example is called "Button Faces" and is part
of the workbook containing the macro code.
On this sheet, just do a normal Edit, Paste.  The button face will be pasted into
the worksheet as a picture object.  It will be very small, which is OK.  With
Documents you may be interested
Documents you may be interested