display pdf in asp net c# : How to rotate one page in a pdf file control SDK system azure wpf .net console 1200%20macro_examples49-part168

491
Application.OnEntry = "MyMacroName"
To set anOnEntry macro that works only on a specific worksheet, use a statement like the
following
Worksheets("Sheet1").OnEntry = "MyMacroName"
Whenever the enter key is hit, Excel runs the MyMacroName macro, which then validates the
entry.
To turn it off, use the following statement:
Application.OnEntry = ""
Note that anOnEntry works until it is reset, Excel is closed, or the macro can not be found.  In
the last situation, you get error messages each time you press enter.
AnOnEntry macro can be used to validate a user's entry, as illustrated by the following code:
Sub Auto_Open()
'if you put this statement in the Auto_Open of the workbook,
'OnEntry will automatically be active when the workbook is opened
Sheets("My Data").OnEntry = "CheckIt"
Sheets("System Data").OnEntry = "CheckIt"
End Sub
Sub CheckIt()
'set On Error in case the cell modified is not in the range to be checked
On Error Resume Next
Dim x
Set x = Intersect(Range(Application.Caller.Address), _
Range("A1:E3"))
'substitute the validation range for A1:E3 in the above statement
If TypeName(x) = "Range" Then
MsgBox "do your validation here"
End If
End Sub
You can specify that theOnEntry applies to for an entire workbook by specifying the workbook
instead:
ThisWorkbook.OnEntry =  "CheckIt"
31.19 Auto Capitalizing
How to rotate one page in a pdf file - 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 permanently rotate pdf pages
How to rotate one page in a pdf file - 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 pdf page by page; pdf reverse page order
492
The following code, put in a worksheet's code module, will automatically capitalize any entry on
that worksheet:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'turn off event handling while macro runs To avoid looping
Application.EnableEvents = False
'check and see if cell has formula.  Only change contents if no formula
'and the entry is not numeric
If (Not ActiveCell.HasFormula) And _
(Not IsNumeric(ActiveCell.Value)) Then _
ActiveCell.Value = UCase(ActiveCell.Value)
Application.EnableEvents = True
End Sub
31.20 Using OnEntry To Force Entries To Be
Uppercase
By using anOnEntry macro, you can force all text entries to be upper case.  An OnEntry macro
can be set for either a specific sheet or for all sheets.
'This subroutine turns on the OnEntry macro, which runs each time an
'entry is made.  Please note that this OnEntry macro is sheet specific,
'to a sheet named "Sheet1" in the ActiveWorkbook
Sub Set_Upper_Case_Entry_On()
Worksheets("Sheet1").OnEntry = "ChangeToUpperCase"
End Sub
'this is the macro that runs each time an entry is made
Sub ChangeToUpperCase()
If Not ActiveCell.HasFormula Then _
ActiveCell.Value = UCase(ActiveCell.Value)
End Sub
'this macro turns off the OnEntry macro
Sub Set_Upper_Case_Entry_Off()
Worksheets("Sheet1").OnEntry = ""
End Sub
To have the above macro, ChangeToUpperCase, run in any worksheet, change the first macro to
set the OnEntry for the entire application:
C# PDF File Merge Library: Merge, append PDF files in C#.net, ASP.
C# developers can easily merge and append one PDF document to document imaging toolkit, also offers other advanced PDF document page processing and
pdf expert rotate page; rotate pdf pages by degrees
VB.NET PDF File Merge Library: Merge, append PDF files in vb.net
This guiding page will help you merge two or more PDF documents into a single one in a Visual Basic .NET imaging application.
rotate individual pdf pages reader; how to reverse pages in pdf
493
Sub Set_Upper_Case_Entry_On()
Application.OnEntry = "ChangeToUpperCase"
End Sub
To turn off the OnEntry macros, use statements like the following:
Worksheets("Sheet1").OnEntry = ""
or
Application.OnEntry = ""
31.21 Running A Macro When The User Double Clicks
To do this, you must go into the Visual Basic editor, and double
-
click the worksheet (under the
Microsoft Excel Objects folder on the left) that contains the cell you wish to trigger the macro.
Then change the (left dropdown to Worksheet and change the right dropdown to
BeforeDoubleClick Then you can just do something similar to the code below to check the
range that's passed to the subroutine (this one is set to run if A1 is double
-
clicked):
Private Sub Worksheet_BeforeDoubleClick( _
ByVal target As Excel.Range, _
Cancel As Boolean)
Dim addr As String
addr = target.Address
If addr = "$A$1" Then
'put your code here
End If
End Sub
31.22 Preventing A User From Closing A File
The following code in the workbook module of a workbook will prevent the user from closing
the file:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub
The only way to close the workbook is to use the following statement in your code, which
prevents the above event (and other automatic events) from running, and thus preventing the
workbook from closing.
Application.EnableEvents = False
The following code put in the workbook’s module will prevent the user from saving the file
unless the name found viaTools,Options,General is listed as one allowed to save the
VB.NET PDF File Split Library: Split, seperate PDF into multiple
document splitter control provides VB.NET developers an easy to use solution that they can split target multi-page PDF document file to one-page PDF files or
pdf rotate pages and save; rotate individual pages in pdf reader
VB.NET PDF Page Delete Library: remove PDF pages in vb.net, ASP.
a solution to conveniently delete one page from your PDF document, you can use this VB.NET PDF Library, which supports a variety of PDF file editing features
how to rotate a pdf page in reader; rotate single page in pdf
494
workbook.  Get to the workbook’s code module by selecting the workbook option in the Visual
Basic Project Explorer and selectingView,Code.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
'Check name and allow save if UserName equals "Name"
If Application.UserName < "Name" Then
'***Cancels Save***'
Cancel = True
End If
End Sub
Change the file name or the drive will still not allow one to save the file unless authorized.  You
should password protect your code so that the user can not change it.
31.23 Preventing A User From Closing Any File
1. In the Visual Basic Editor (VBE), add a class module to your code workbook (Insert
--
>Class
Module). Note the name of the class module (which is probably called Class1).
2. In the code window that appears, type:  Public WithEvents xlAppTrap as Excel.Application
3. At the top of the code window, you'll see two drop down boxes. Click the one on the left
(should say General) and select: xlAppTrap
4. A private sub should appear on the module, probably called Private Sub
xlAppTrap_NewWorkbook.
5. Click the Drop
-
down on the right and select WorkbookBeforeClose. That procedure should
now appear in the code window. You can delete the first one (xlAppTrap_NewWorkbook)
6. To prevent them from closing any workbook as well as Excel, simply enter one line of code.
Cancel=True
Finally, you need to 'activate' the class by defining and initializing a variable
7. At the top of the module where you keep your global variables (or any regular module), type
the following
Public clsAppTrap As New Class1
Where Class1 is the name of the class module you inserted in Step 1
8. In your Auto_Open or Workbook_Open procedure, add the following line of code
C# PDF Page Extract Library: copy, paste, cut PDF pages in C#.net
Extract PDF Pages, Copy Pages from One PDF File and Paste into Others in C#.NET Program. Free PDF document processing SDK supports PDF page extraction, copying
rotate pdf pages on ipad; pdf rotate page and save
VB.NET PDF Annotate Library: Draw, edit PDF annotation, markups in
A PDFDocument object contains all information about source PDF document file. PDFPage: As for one page of PDFDocument instance, RasterEdge VB.NET PDF annotator
rotate pdf pages and save; pdf rotate single page and save
495
Set clsAppTrap.AppTrap = Excel.Application
9. Once this code is run, the user will not be able to close any workbook, or exit the application,
using neither the Excel or control menus. You'll need to add the following line of code to your
Auto_Close (or any routine that attempts to close the app or workbooks):
Set clsAppTrap.AppTrap = Nothing
That line will disable the trap. Any routine that closes workbook(s) without closing your App
will need to use the code in step 9 before the close statement, then use the code in step 8 after the
statement so that the trap is still active.
31.24 Using Application.Caller And OnEntry Macros
Application.Callerwhen used with anOnEntry macro refers to the cell which is modified by
an entry.  For example, if you set anOnEntry macro, by doing something like the following:
Sub TurnOnEntryOn()
Application.OnEntry = "AppCallerExample"
End Sub
Then the following illustrate some of whatApplication.Caller would return if a cell is changed
Sub AppCallerExample()
'this returns the value in the cell
MsgBox Application.Caller.Value
'this sets a range variable equal to the modified cell
Dim cell As Range
Set cell = Application.Caller
'this returns the address of the modified cell
MsgBox Application.Caller.Address
'this returns the formula in the cell, including the equal sign
MsgBox Application.Caller.Formula
End Sub
To de
-
activate theApplication.OnEntry command, use the following statement in your code:
Application.OnEntry = ""
31.25 Stopping Event Looping
C# PDF Page Delete Library: remove PDF pages in C#.net, ASP.NET
unnecessary page from target existing PDF document file. Using RasterEdge Visual C# .NET PDF page deletion component, developers can easily select one or more
reverse page order pdf online; reverse page order pdf
C# PDF File Compress Library: Compress reduce PDF size in C#.net
document of 1000+ pages to smaller one in a Easy to compress & decompress PDF document file Remove bookmarks, annotations, watermark, page labels and article
pdf rotate pages separately; rotate one page in pdf reader
496
The Worksheet_Change event (and all other events) will be fired by actions taken by your code
as well as by users. For Excel object
-
specific events, the easiest thing to do is the following:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
'Your code goes here.
Application.EnableEvents = True
End Sub
Note: this only works for Excel object events.  For UserForms you have to code the same sort of
thing manually using module
-
level flag variables.
31.26 Capturing When The User Changes The Selected
Cell
You can use the worksheetSelectionChange event to capture when the user changes the selected
cell.  To create this code, do the following:
Right click on the worksheet tab and select View Code
Excel will automatically create the following code in the worksheet's module:
PrivateSub Worksheet_SelectionChange(ByVal TargetAs Excel.Range)
End Sub
Add your code to the above.  The following are illustrations of such code:
This example displays in a message box the range the user selects
Private Sub Worksheet_SelectionChange(ByVal TargetAs Excel.Range)
MsgBox "You selected "& Target.Address(False, False)
End Sub
This example restricts the user's selection to B5:B10.  If the user selects any cell but these cells,
the nearest cell in this range is selected.  Also, the user is not allowed to select a range.
Private Sub Worksheet_SelectionChange(ByVal Target _
As Excel.Range)
Dim R As Integer, C As Integer
Dim bChangeCell As Boolean
'disable the event handlers so that action of this code does not
'trigger the code a second time
497
Application.EnableEvents = False
'get the ActiveCell row and column and determine if the user selected
'a range outside of the allowed range, B5:B10
'set bChangeCell to true if the selected cell is outside this range
R = ActiveCell.Row
C = ActiveCell.Column
If R < 5 Then
R = 5
bChangeCell = True
ElseIf R > 10 Then
R = 10
bChangeCell = True
End If
If C <> 2 Then
C = 2
bChangeCell = True
End If
'select cell in allowed range if necessary and select only the active cell if
more than one cell selected
If bChangeCell Then Cells(R, C).Select
If Selection.Cells.Count > 1 Then ActiveCell.Select
're
-
enable the event handlers
Application.EnableEvents = True
End Sub
31.27 Determining When A Worksheet Is Selected Or A
Workbook Activated
The Workbook_SheetActivate event will detect when a worksheet is selected.  You can then
include in it code you want executed.  This event and its code goes in the workbook's module.
For example,
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "You selected sheet " & Sh.Name
End Sub
displays the name of the sheet selected.  Please note it does not detect when you go to another
workbook and return.  To do that, you need to use the Workbook_Activate event:
Private Sub Workbook_Activate()
MsgBox "You are now in " & ActiveWorkbook.Name
End Sub
31.28 Canceling a Close Event
498
You can cancel the close event in the Workbook Before_Close event procedure by setting Cancel
=True.
499
32. HTML
32.1 Opening A Hyperlink
Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal Hwnd As LongByVal lpOperation As String, _
ByVal lpFile As StringByVal lpParameters As String, _
ByVal lpDirectory As StringByVal nShowCmd As LongAs Long
Sub LaunchLink()
ShellExecute 0, "Open", "http://www.add
-
ins.com", "", "", 1
End Sub
And another way:
ActiveWorkbook.FollowHyperlink "http://www.add
-
ins.com", ,True
32.2 Opening A HTML Page From Excel
The following will open a web page from Excel, without needing to know which browser is
setup as the default browser to run HTML pages:
Dim x As Double
On Error Resume Next
x = Shell("explorer.exe http://www.microsoft.com")
If Err.Number <> 0 Then
MsgBox "Houston, we have a problem."
End If
Another suggested approach is:
ActiveWorkbook.FollowHyperlink _
Address:="http://home.netscape.com", _
NewWindow:=True
32.3 Save As HTML
Excel 97/2000 SR
-
1 and greater have the capability to programmatically save a portion of a page
to HTML.  This page will give you details:
http://support.microsoft.com/support/kb/articles/Q168/5/61.asp
XL97: How to Programmatically Save a Worksheet as HTML
The following is an example of saving a sheet as a web page.
500
Sub jdbCreateWebPage(curr As String)
Dim ObjToConvert(1) As Variant
Dim Result As Integer
k = Array(Sheets("Chart").Range("Chart_title"), _
Sheets("Chart").ChartObjects(1))
'Populate the ObjToConvert array with the ranges and chart that you want to export.
Set ObjToConvert(0) = Sheets("Chart").Range("Chart_title")
Set ObjToConvert(1) = Sheets("Chart").ChartObjects(1)
MyName = ActiveSheet.Range("A2")
'Load the Internet Assistant Wizard add
-
in.
AddIns("Internet Assistant Wizard").Installed = True
'Create the HTML page.
web_fileName = CurDir & "\" & web_FilesDir & "\" & _
curr & ".htm"
Result = _
htmlconvert(Rangeandcharttoconvert:=ObjToConvert, _
useexistingfile:=True, _
usefrontpageforexistingfile:=False, _
addtofrontpageweb:=Falsecodepage:=1252, _
htmlfilepath:=web_fileName, _
ExistingFilePath:=web_template, _
headerfullpage:="Test Page", _
linebeforetablefullpage:=False, _
Namefullpage:=MyName)
' If the conversion is successful, the code htmlconvert_success is returned.
If Result = htmlconvert_success Then
MsgBox "Web Page Created Successfully"
Else
MsgBox "Error Creating Web Page"
End If
End Sub
32.4 Deleting HyperLinks
The following example shows how to delete all the hyperlinks in a worksheet:
For Each hLink In ActiveSheet.Hyperlinks
hLink .Parent.Clear
Next
To delete all the hyperlinks in a selection use:
Selection.Hyperlinks.Delete
Documents you may be interested
Documents you may be interested