display pdf in mvc : Rotate individual pdf pages reader software Library dll winforms .net html web forms 0234461096-Excel%20Hacks%20Tips%20and%20Tools%20for%20Streamlining%20Your%20Spreadsheets%20200734-part47

318 | Chapter 7, Macro Hacks
#128
Hide and Restore Toolbars in Excel
HACK
.CommandBars("Full Screen").Visible = False
.CommandBars("MyToolbar").Enabled = True
.CommandBars("MyToolbar").Visible = True
.CommandBars("Worksheet Menu Bar").Enabled = False
End With
On Error GoTo 0
End Sub
Then, insert another module with the following code:
Sub RestoreToolbars()
On Error Resume Next
With Application
.DisplayFullScreen = False
.CommandBars("MyToolbar").Enabled = False
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
On Error GoTo 0
End Sub
You aren’t quite finished yet! You still need to make sure that both macros
run at the correct time, so you’ll have to place a
Run
statement in the
Workbook_Activate
and
Workbook_Deactivate
procedures of the Workbook
object (
ThisWorkbook
). Right-click on the Excel icon (on the top left, next to
File on the worksheet menu bar), select View Code, and insert the following
code:
Private Sub Workbook_Activate()
Run "RemoveToolbars"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("MyToolbar").Delete
End Sub
Private Sub Workbook_Deactivate()
Run "RestoreToolbars"
End Sub
Note the deletion of the custom toolbar when the workbook closes. This is
what prevents any changes from sticking unless you have first deleted it (as
shown previously), made the changes, and then attached it again.
Do not run the
Application.CommandBars("MyToolbar").
Delete
when the custom toolbar is not attached.
Rotate individual pdf pages reader - 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#
save pdf rotated pages; rotate pdf pages
Rotate individual pdf pages reader - 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 pdf pages and save permanently; how to rotate a page in pdf and save it
Sort Worksheets #129
Chapter 7, Macro Hacks | 319
HACK
H A C K
129
Sort Worksheets
Hack #129
One of the most commonly used functions in Excel, sorting is usually
performed on a list, table, or range of cells, but you can take things a step
further and sort your worksheets as well.
By using some code in an Excel workbook, or an Excel Add-In, you can sort
all sheets in the active workbook, making it easier to locate sheets when you
have many in your workbook.
The Code
Open the workbook for which you want to sort the sheets. Press Alt/Option-
F11 to open the Visual Basic Editor, and insert a module by selecting Insert
Module and entering the following code:
Sub SortSheets()
Dim lCount As Long, lCounted As Long
Dim lShtLast As Long
Dim lReply As Long
lReply = MsgBox("To sort Worksheets ascending, select 'Yes'. " _
& "To sort Worksheets descending select 'No'", vbYesNoCancel, _
"Ozgrid Sheet Sort")
If lReply = vbCancel Then Exit Sub
lShtLast = Sheets.Count
If lReply = vbYes Then 'Sort ascending
For lCount = 1 To lShtLast
For lCount2 = lCount To lShtLast
If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then
Sheets(lCount2).Move Before:=Sheets(lCount)
End If
Next lCount2
Next lCount
Else 'Sort descending
For lCount = 1 To lShtLast
For lCount2 = lCount To lShtLast
If UCase(Sheets(lCount2).Name) > UCase(Sheets(lCount).Name) Then
Sheets(lCount2).Move Before:=Sheets(lCount)
End If
Next lCount2
Next lCount
End If
End Sub
Close the window to get back to your worksheet and save your workbook.
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.
pdf rotate single page and save; pdf reverse page order online
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; how to reverse page order in pdf
320 | Chapter 7, Macro Hacks
#130
Password-Protect a Worksheet from Viewing
HACK
Running the Hack
To run the code, click in any worksheet, press Alt/Option-F8, select the
macro, and press Run. You will be asked if you want to sort your sheets in
ascending (A – Z) or descending order (Z – A), as shown inFigure7-23.
H A C K
130
Password-Protect a Worksheet from Viewing
Hack #130
Keep prying eyes from viewing a worksheet, unless they have the password.
With the aid of some Excel VBA code placed the
Private
module of the
workbook object, you can protect a worksheet from viewing by anyone who
doesn’t knowthe password you select. The code stops after three failed
attempts. A runtime error will occur, you will not be able to view the work-
sheet, and it does not mask the password entry. You’ll need to close and
reopen the workbook to try again.
This method is far from secure and should not be used if the
worksheet contains highly sensitive information. It only
enhances the general worksheet protection and uses the
UserInterfaceOnly
option of the
Protect
method. You
should also protect/lock Excel VBA code.
The code in this hack makes use of the worksheet’s CodeName. The
Workbook_Open
procedure ensures that the workbook does not open with the
unviewable worksheet being active.
Figure 7-23. Dialog box presented when running macro to sort worksheets in ascending
or descending order
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#.
rotate one page in pdf reader; how to change page orientation in pdf document
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
rotate pdf pages individually; permanently rotate pdf pages
Password-Protect a Worksheet from Viewing
#130
Chapter 7, Macro Hacks | 321
HACK
The Code
Right-click on the sheet tab, select ViewCode, double-click on
ThisWorksheet
, and insert the following code:
Dim sLast As Object
Private Sub Workbook_Open()
'Ensure Sheet1 is not the active sheet upon opening.
If Sheet1.Name = ActiveSheet.Name Then Sheet2.Select
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim strPass As String
Dim lCount As Long
If Sh.CodeName <> "Sheet1" Then
'Set sLast variable to the last active sheet _
This is then used to return the user to the _
last sheet they were on if password is not known _
or they Cancel.
Set sLast = Sh
Else
'Hide Columns
Sheet1.Columns.Hidden = True
'Allow 3 attempts at password
For lCount = 1 To 3
strPass = InputBox(Prompt:="Password Please", Title: ↵
="PASSWORD REQUIRED")
If strPass = vbNullString Then 'Cancelled
sLast.Select
Exit Sub
ElseIf strPass <> "Secret" Then 'InCorrect password
MsgBox "Password incorrect", vbCritical, "Ozgrid.com"
Else 'Correct Password
Exit For
End If
Next lCount
If lCount = 4 Then 'They use up their 3 attempts
sLast.Select
Exit Sub
Else 'Allow viewing
Sheet1.Columns.Hidden = False
End If
End If
End Sub
C# TIFF: How to Rotate TIFF Using C# Code in .NET Imaging
Individual Products. XDoc.SDK for .NET. XImage.SDK for Page. |. Home ›› XDoc.Tiff ›› C# Tiff: Rotate Tiff Page. & pages edit, C#.NET PDF pages extract, copy
rotate pdf page by page; how to reverse pages in pdf
VB.NET PDF - WPF PDF Viewer for VB.NET Program
Individual Products. XDoc.SDK for .NET. XImage.SDK for .NET. Page: Replace PDF Pages. Page: Move Page Position. Page: Copy, Paste PDF Pages. Page: Rotate a PDF
rotate all pages in pdf file; how to rotate one page in a pdf file
322 | Chapter 7, Macro Hacks
#131
Change Text to Upper- or Proper Case
HACK
The password used in this code is
Secret
.
Running the Hack
Save and close your workbook and reopen it. To run the code, enable your
macros and then try selecting Sheet1. A blank screen and a dialog will
appear, asking you for the required password. Remember, you only get three
shots at it!
H A C K
131
Change Text to Upper- or Proper Case
Hack #131
When using a built-in Excel function is impractical, you can use a custom
macro to change any existing text to uppercase or proper case.
Excel already has two functions that change text to uppercase (all caps), or
proper case (capitalizing the first letter of every word). Let’s say we have the
words
hong kong disneyland
in cell A1. The existing functions that can be
used to change text are:
=UPPER(A1)
Converts all text in cell A1 to uppercase (all caps), giving the result of
HONG KONG DISNEYLAND
=PROPER(A1)
Converts all text in cell A1 to proper case which would give the result
Hong Kong Disneyland
These functions work well when referring to cells that house the text, but
there are many instances when using the worksheet function approach is not
practical, such as with massive amounts of data. We can fix this with the use
of some simple code that displays a message box asking if we would like to
convert to uppercase or proper case.
The Code
Right-click on your sheet tab, select ViewCode (or press Alt/Option-F11),
insert a module by selecting Insert
Module, and enter the following code:
Sub ConvertCase()
Dim rAcells As Range, rLoopCells As Range
Dim lReply As Long
'Set variable to needed cells
If Selection.Cells.Count = 1 Then
Set rAcells = ActiveSheet.UsedRange
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
pdf rotate all pages; rotate pdf page few degrees
C# PDF: PDF Document Viewer & Reader SDK for Windows Forms
Rotate270: Rotate the currently displayed PDF page 90 degrees counterclockwise. for you to create and add a PDF document viewer & reader in Windows
pdf reverse page order preview; reverse page order pdf online
Change Text to Upper- or Proper Case
#131
Chapter 7, Macro Hacks | 323
HACK
Else
Set rAcells = Selection
End If
On Error Resume Next 'In case of NO text constants.
'Set variable to all text constants
Set rAcells = rAcells.SpecialCells(xlCellTypeConstants, xlTextValues)
If rAcells Is Nothing Then
MsgBox "Could not find any text."
On Error GoTo 0
Exit Sub
End If
lReply = MsgBox("Select 'Yes' for UPPER CASE or 'No' for Proper Case.", _
vbYesNoCancel, "OzGrid.com")
If lReply = vbCancel Then Exit Sub
If lReply = vbYes Then ' Convert to Upper Case
For Each rLoopCells In rAcells
rLoopCells = StrConv(rLoopCells, vbUpperCase)
Next rLoopCells
Else ' Convert to Proper Case
For Each rLoopCells In rAcells
rLoopCells = StrConv(rLoopCells, vbProperCase)
Next rLoopCells
End If
End Sub
Click the X at the top-right side of the Visual Basic editor to close and return
to Excel, and then save your workbook.
The code uses the
STrConv
function to convert the text. The
StrConv
func-
tion can take many forms, so if you want to convert to lowercase, for
instance, you can substitute either
vbUpperCase
or
vbProperCase
in the code
with
vbLowerCase
or any of the alternatives in the following list:
vbUpperCase
Converts the string to uppercase characters
vbLowerCase
Converts the string to lowercase characters
vbProperCase
Converts the first letter of every word in the string to uppercase
vbWide
Converts narrow(single-byte) characters in the string to wide (double-
byte) characters
324 | Chapter 7, Macro Hacks
#132
Force Text to Upper- or Proper Case
HACK
vbNarrow
Converts wide (double-byte) characters in thestring to narrow (single-
byte) characters
vbKatakana
Converts Hiragana characters in the string to Katakana characters
vbHiragana
Converts Katakana characters in the string to Hiragana characters
vbUnicode
Converts the string to Unicode using the default code page of the sys-
tem (not available on the Macintosh)
vbFromUnicode
Converts the string from Unicode to the default code page of the sys-
tem (not available on the Macintosh)
See the Excel VBA help for specifics.
Running the Hack
To run the macro, press Alt/Option-F8, select the macro name, and press
Run.
The macro will run and display a message box that asks if you wish to
change existing text to either uppercase or proper case, and depending on
user selection the code will convert the text.
If you run the macro with only a single cell selected, it will
work on the entire worksheet. If you run the macro with
more than one cell selected, it will work on only your
selection.
H A C K
132
Force Text to Upper- or Proper Case
Hack #132
Restrict all future entries in a spreadsheet or range of cells to uppercase or
proper case only.
Rather thanconverttheexistingcontentsofaspreadsheettoeitherupper-
case or proper case
[Hack #131]
, you can restrict all future entries to either
uppercase or proper case for a range of cells or an entire spreadsheet.
With some VBA code in the
Private
module of the
Worksheet
object, you
can force any text entered to be uppercase (all caps), or proper case (capital-
izing the first letter of each word). This hack presents four Excel VBA proce-
dures that will do the trick. The first two restrict the forcing of uppercase to
aspecified range on the worksheet, and then the entire worksheet. The last
two procedures do the same but force text to be entered as proper case.
Force Text to Upper- or Proper Case
#132
Chapter 7, Macro Hacks | 325
HACK
The Code
To insert one of the procedures, right click on the sheet tab, select View
Code, and enter the procedure you require.
It is very important that you insert one and one only proce-
dure to prevent erroneous results.
Uppercase. If you want to force all future text in your worksheet to upper-
case, but restrict the range, you can use the following procedure, which will
force uppercase text in cells A1:B20 only:
Private Sub Worksheet_Change(ByVal Target As Range)
''''''''''''''''''''''''''''''''''''''''''''
'Forces text to UPPER case for the range A1:B20
''''''''''''''''''''''''''''''''''''''''''''
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
On Error Resume Next
If Not Intersect(Target, Range("A1:B20")) Is Nothing Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
On Error GoTo 0
End Sub
If, however, you want to force uppercase entry throughout your worksheet,
use this procedure instead:
Private Sub Worksheet_Change(ByVal Target As Range)
''''''''''''''''''''''''''''''''''''''''''''
'Forces all text to UPPER case
''''''''''''''''''''''''''''''''''''''''''''
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
On Error GoTo 0
End Sub
326 | Chapter 7, Macro Hacks
#132
Force Text to Upper- or Proper Case
HACK
Proper case. If you want to force all future text in your worksheet to proper
case (capitalized first letter), but restrict the range, you can use the follow-
ing procedure, which will force proper case text in cells A1:B20 only:
Private Sub Worksheet_Change(ByVal Target As Range)
''''''''''''''''''''''''''''''''''''''''''''
'Forces text to Proper case for the range A1:B20
''''''''''''''''''''''''''''''''''''''''''''
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
On Error Resume Next
If Not Intersect(Target, Range("A1:B20")) Is Nothing Then
Application.EnableEvents = False
Target = StrConv(Target, vbProperCase)
Application.EnableEvents = True
End If
On Error GoTo 0
End Sub
If you want all entries throughout your worksheet to be proper case, use the
following procedure:
Private Sub Worksheet_Change(ByVal Target As Range)
''''''''''''''''''''''''''''''''''''''''''''
'Forces all text to Proper case
''''''''''''''''''''''''''''''''''''''''''''
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Target = StrConv(Target, vbProperCase)
Application.EnableEvents = True
On Error GoTo 0
End Sub
Once you have inserted the required procedure, click the top-right X (or
press Alt/
c
-Q) to get back to Excel proper, and then save your workbook.
Running the Hack
To run the required procedure (we are using the first as an example), just
enter text in any cell in the range A1:B20, and any entry you make will be
forced to uppercase, as shown inFigure7-24.
Force Text to Upper- or Proper Case
#132
Chapter 7, Macro Hacks | 327
HACK
Hacking the Hack
To take things a step further, you can use the following Excel VBA code in
an ActiveX TextBox control to force text within a textbox into uppercase or
proper case. To do this, you must first insert the TextBox, so select Devel-
oper
Controls
Insert, select the TextBox tool under ActiveX Controls,
and draw a textbox on your spreadsheet.
With the textbox selected, double-click it and place this procedure to force
text to uppercase:
Private Sub TextBox1_Change()
On Error Resume Next
TextBox1 = UCase(TextBox1)
On Error GoTo 0
End Sub
or this procedure to force text to proper case:
Private Sub TextBox1_Change()
On Error Resume Next
TextBox1 = StrConv(TextBox1, vbProperCase)
On Error GoTo 0
End Sub
Exit the VBE and save your workbook.
Now, any text that you try to enter into the textbox will be forced to either
upper or proper case.
This code can also be used in a textbox on a userform.
Figure 7-24. Entries in the range A1:B20 forced to uppercase
Documents you may be interested
Documents you may be interested