display pdf in mvc : Rotate a pdf page SDK control service wpf web page winforms dnn 0234461096-Excel%20Hacks%20Tips%20and%20Tools%20for%20Streamlining%20Your%20Spreadsheets%20200732-part45

298 | Chapter 7, Macro Hacks
#123
Create a List of Workbook Hyperlinks
HACK
Now, test it by adding any data to any cell in the range A2:A100. You will
see the current date appear in the corresponding cell of B2:B100, as shown
inFigure7-15.
To get both the current date and time use
.Value = Now
as opposed to
.Value
= Date
.For only the time, use
.Value = Time
.If you want to hardcode the
date in only a fewinstances, you can use the Ctrl-: shortcut (hold down the
Ctrl key and press the colon key).
H A C K
123
Create a List of Workbook Hyperlinks
Hack #123
Use a bit of Excel VBA macro code to create a list of hyperlinked Excel
workbook names on any Excel worksheet.
Using the code in this hack, you can get Excel to create a list of all hyper-
linked files in an Excel workbook, which is a great tool if you have a large
workbook with many hyperlinks in it and you want to see at a glance where
the hyperlinks go. If you prefer, you can even restrict the list of hyperlinks to
aspecific workbook by specifying the workbook name in the part of the
code that reads
.Filename = "Book*.xls"
.
This hack also works with Excel versions 2000–2003.
The code uses the
MsoFileType
constant
msoFileTypeExcelWorkbooks
and is
therefore restricted to Excel workbooks only (a .MSO file is a Microsoft
Office file type), but you could adapt the code to record any of the follow-
ing
MsoFileType
constants:
msoFileTypeAllFiles
msoFileTypeBinders
Figure 7-15. All entries in column A result in today’s date being shown in column B
Rotate a pdf page - 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 by degrees; save pdf rotate pages
Rotate a pdf page - 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 single page in pdf; rotate all pages in pdf file
Create a List of Workbook Hyperlinks #123
Chapter 7, Macro Hacks | 299
HACK
msoFileTypeCalendarItem
msoFileTypeContactItem
msoFileTypeCustom
msoFileTypeDatabases
msoFileTypeDataConnectionFiles
msoFileTypeDesignerFiles
msoFileTypeDocumentImagingFiles
msoFileTypeExcelWorkbooks
msoFileTypeJournalItem
msoFileTypeMailItem
msoFileTypeNoteItem
msoFileTypeOfficeFiles
msoFileTypeOutlookItems
msoFileTypePhotoDrawFiles
msoFileTypePowerPointPresentations
msoFileTypeProjectFiles
msoFileTypePublisherFiles
msoFileTypeTaskItem
msoFileTypeTemplates
msoFileTypeVisioFiles
msoFileTypeWebPages
msoFileTypeWordDocuments
The Code
To insert the code, right-click on your worksheet name, select View Code,
go to Insert
Module, and paste the following:
Remember to change the file paths to suit your own
environment.
Sub HyperlinkXLSFiles()
Dim lCount As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
'On Error Resume Next
With Application.FileSearch
.NewSearch
'Change path to suit
VB.NET PDF Page Delete Library: remove PDF pages in vb.net, ASP.
XDoc.PDF ›› VB.NET PDF: Delete PDF Page. using RasterEdge.Imaging.Basic; using RasterEdge.XDoc.PDF; How to VB.NET: Delete a Single PDF Page from PDF File.
rotate pdf page by page; pdf reverse page order preview
VB.NET PDF Page Insert Library: insert pages into PDF file in vb.
PDF Pages. |. Home ›› XDoc.PDF ›› VB.NET PDF: Insert PDF Page. Professional .NET PDF control for inserting PDF page in Visual Basic .NET class application.
pdf reverse page order online; reverse pdf page order online
300 | Chapter 7, Macro Hacks
#124
Advanced Find
HACK
.LookIn = "C:\OzGrid Likom\Testings\"
.FileType = msoFileTypeExcelWorkbooks
' .Filename = "Book*.xls"
If .Execute > 0 Then 'Workbooks in folder
For lCount = 1 To .FoundFiles.Count 'Loop through all.
ActiveSheet.Hyperlinks.Add Anchor:=Cells(lCount, 1), ↵
Address:= _
.FoundFiles(lCount), TextToDisplay:= _
Replace(.FoundFiles(lCount), "C:\OzGrid Likom\ ↵
Testings\", "")
'Change path to suit
Next lCount
End If
End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Exit and return to Excel proper, and save your workbook.
Running the Hack
To run the code, make sure you have a clean worksheet. Then, select Tools
Macros or press Alt/Option-F8, select the macro, and press Run.
Ensure the active worksheet at the time of running the code
is clean, to avoid overwriting existing data.
As shown inFigure7-16, a list of hyperlinks will be created for you to copy,
paste, change, or do whatever you like with!
H A C K
124
Advanced Find
Hack #124
Allow a user to specify more than one item to locate with the Find feature by
using some code and a UserForm.
The standard Excel Find feature is great for locating matching cells. How-
ever, by default, it cannot be used to locate, say, three matching cells on the
same rowwithin a table. This hack removes this limitation of the Find fea-
ture, allowing the user to specify more than one item to locate.
C# PDF Page Insert Library: insert pages into PDF file in C#.net
page processing functions, such as 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
rotate individual pages in pdf reader; how to reverse pages in pdf
C# PDF Page Delete Library: remove PDF pages in C#.net, ASP.NET
Pages. |. Home ›› XDoc.PDF ›› C# PDF: Delete PDF Page. Demo Code: How to Delete a Single PDF Page from PDF File in C#.NET. How
how to rotate a pdf page in reader; pdf rotate just one page
Advanced Find
#124
Chapter 7, Macro Hacks | 301
HACK
If you have a large table of data (say, A1:H1000), you might want to find a
specific row in that table where three or more items exist.
The number of items can be greater or smaller than three,
but we’ll use three for this example.
The UserForm
To begin, you’ll need to create a UserForm. Right-click on the sheet tab and
select ViewCode, or press Alt/Option-F11. Then, select Insert
UserForm
and insert three ComboBoxes (named ComboBox1, ComboBox2, and
ComboBox3) from the Controls toolbox that pops up (select View
Tools
if it doesn’t). Place them vertically on the left side of UserForm with
ComboBox1 at the top and ComboBox3 at the bottom. Set the
Enabled
property of ComboBox2 and ComboBox3 to
False
.
Figure 7-16. List of created hyperlinks
C# TIFF: How to Rotate TIFF Using C# Code in .NET Imaging
Convert Tiff to Jpeg Images. Convert Word, Excel, PowerPoint to Tiff. Convert PDF to Tiff. Move Tiff Page Position. Rotate a Tiff Page. Extract Tiff Pages.
how to change page orientation in pdf document; rotate all pages in pdf and save
C# PDF File & Page Process Library SDK for C#.net, ASP.NET, MVC
and Paste PDF Pages. Page: Rotate a PDF Page. PDF Read. Text: Extract Text from PDF. Text: Search Text in PDF. Image: Extract Image from
rotate individual pages in pdf; pdf rotate single page
302 | Chapter 7, Macro Hacks
#124
Advanced Find
HACK
Nowfor some labels. Insert five labels, again from the Controls toolbox,
named Label1 (positioned above ComboBox1), Label2 (positioned above
ComboBox2), Label3 (positioned above ComboBox3), Label4 (positioned
above Label1), and Label5 (anywhere for now). Change the
Caption
prop-
erty of Label4 to read “Select up to 3 fields” and “Matching Rows. Double
click to go there” for Label5.
From the Controls toolbox, insert two CommandButtons: CommandButton1
and CommandButton2. Change the
Caption
property to “Find” for
CommandButton1 and “Close” for CommandButton2. Position both of
these at the top right of the UserForm.
Now, underneath the Find and Close buttons, insert a ListBox (named
ListBox1) and place Label5 above it. Make the ListBox1 the same width as
Label5, but make it as long as your UserForm will allow.
Your form should look likeFigure7-17.
The Code
That’s all you need to create the form. Now, it’s time to add the all-impor-
tant code. Double-click the UserForm and add this code:
Option Explicit
'Module Level Variables
Dim rRange As Range
Dim strFind1 As String
Dim strFind2 As String
Dim strFind3 As String
Figure 7-17. UserForm showing Controls
C# PDF Page Extract Library: copy, paste, cut PDF pages in C#.net
If using x86, the platform target should be x86. C#.NET Sample Code: Clone a PDF Page Using C#.NET. Load the PDF file that provides the page object.
saving rotated pdf pages; how to permanently rotate pdf pages
VB.NET PDF Page Replace Library: replace PDF pages in C#.net, ASP.
Existing PDF Pages. Page: Replace PDF Pages. Page: Move Page Position. Page: Copy, Paste PDF Pages. Page: Rotate a PDF Page. PDF Read. Text
pdf rotate one page; pdf rotate page
Advanced Find
#124
Chapter 7, Macro Hacks | 303
HACK
Private Sub ComboBox1_Change()
'Pass chosen value to String variable strFind1
strFind1 = ComboBox1
'Enable ComboBox2 only if value is chosen
ComboBox2.Enabled = Not strFind1 = vbNullString
End Sub
Private Sub ComboBox2_Change()
'Pass chosen value to String variable strFind1
strFind2 = ComboBox2
'Enable ComboBox3 only if value is chosen
ComboBox3.Enabled = Not strFind2 = vbNullString
End Sub
Private Sub ComboBox3_Change()
'Pass chosen value to String variable strFind1
strFind3 = ComboBox3
End Sub
Private Sub CommandButton1_Click()
'Procedure level variables
Dim lCount As Long
Dim lOccur As Long
Dim rCell As Range
Dim rCell2 As Range
Dim rCell3 As Range
Dim bFound As Boolean
'At least one value, from ComboBox1 must be chosen
If strFind1 & strFind2 & strFind3 = vbNullString Then
MsgBox "No items to find chosen", vbCritical
Exit Sub 'Go no further
ElseIf strFind1 = vbNullString Then
MsgBox "A value from " & Label1.Caption _
& " must be chosen", vbCritical
Exit Sub 'Go no further
End If
'Clear any old entries
On Error Resume Next
ListBox1.Clear
On Error GoTo 0
'If String variable are empty pass the wildcard character
If strFind2 = vbNullString Then strFind2 = "*"
If strFind3 = vbNullString Then strFind3 = "*"
'Set range variable to first cell in table.
Set rCell = rRange.Cells(1, 1)
'Pass the number of times strFind1 occurs
lOccur = WorksheetFunction.CountIf(rRange.Columns(1), strFind1)
304 | Chapter 7, Macro Hacks
#124
Advanced Find
HACK
'Loop only as many times as strFind1 occurs
For lCount = 1 To lOccur
'Set the range variable to the found cell. This is then also _
used to start the next Find from (After:=rCell)
Set rCell = rRange.Columns(1).Find(What:=strFind1, After:=rCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
'Check each find to see if strFind2 and strFind3 occur _
on the same row.
If rCell(1, 2) Like strFind2 And rCell(1, 3) Like strFind3 Then
bFound = True 'Used to not show message box for no value found.
'Add the address of the found cell and the cell on the _
same row but 2 columns to the right.
ListBox1.AddItem rCell.Address & ":" & rCell(1, 3).Address
End If
Next lCount
If bFound = False Then 'No match
MsgBox "Sorry, no matches", vbOKOnly
End If
End Sub
Private Sub CommandButton2_Click()
'Close UserForm
Unload Me
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Check for range addresses
If ListBox1.ListCount = 0 Then Exit Sub
'GoTo doubled clicked address
Application.Goto Range(ListBox1.Text), True
End Sub
Private Sub UserForm_Initialize()
'Procedure level module
Dim lRows As Long
'Set Module level range variable to CurrentRegion _
of the Selection
Set rRange = Selection.CurrentRegion
If rRange.Rows.Count < 2 Then ' Only 1 row
MsgBox "Please select any cell in your table first", vbCritical
Unload Me 'Close Userform
Exit Sub
Else
With rRange
'Set Label Captions to the Table headings
Label1.Caption = .Cells(1, 1)
Label2.Caption = .Cells(1, 2)
Label3.Caption = .Cells(1, 3)
Advanced Find
#124
Chapter 7, Macro Hacks | 305
HACK
'Set RowSource of ComboBoxes to the appropriate columns _
inside the table
ComboBox1.RowSource = .Columns(1).Offset(1, 0).Address
ComboBox2.RowSource = .Columns(2).Offset(1, 0).Address
ComboBox3.RowSource = .Columns(3).Offset(1, 0).Address
End With
End If
End Sub
Private Sub UserForm_Terminate()
'Destroy Module level variables
Set rRange = Nothing
strFind1 = vbNullString
strFind2 = vbNullString
strFind3 = vbNullString
End Sub
Finally, insert a Module (Insert
Module) and paste the following code:
Sub ShowForm()
On Error Resume Next
UserForm1.Show
On Error GoTo 0
End Sub
Exit from the VBE and save your workbook.
Running the Hack
To test the code, click inside your table of data and run the code, or you can
attach it to a shortcut key, a button, or assign it to a toolbar.
Shortcut key. Attaching the code to a shortcut key is easily done by selecting
Developer
Macros (pre-2007, Tools
Macros
Macros...)
Options.
Button. If you prefer, you can attach the macro to a button. To add to a but-
ton, just insert a button onto your worksheet, right-click it, select Assign
Macro, and then double-click on your macro name to attach it to the
button.
Toolbar. To add a macro to the Quick Access Toolbar, select the drop-down
menu to the right of the Quick Access Toolbar, and choose More Com-
mands. Under Choose Commands From, select Macros, click on your
macro name (in this case,
ShowForm
), and select Add. The Modify button at
the bottom of the Quick Access Toolbar pane allows you to change the but-
ton if you like. Click OK when you’ve finished.
306 | Chapter 7, Macro Hacks
#125
Find a Number Between Two Numbers
HACK
In pre-2007 versions, right-click your toolbar, select Custom-
ize
Commands
Macros
Custom Button and drag to
your toolbar. When you do this, the Modify Selection but-
ton will become active, allowing you to change button style
if desired. Click Close when finished.
InFigure7-18, we have attached the
ShowForm
macro to a button and called
it
Find
.
Try it and you will see how easy and useful it can be to identify your speci-
fied criteria.
H A C K
125
Find a Number Between Two Numbers
Hack #125
Enhance Excel’s Find feature to search for the first occurrence of a number
that falls between two specified numbers.
Like all Microsoft Office applications, Excel has a Find feature to help locate
aspecified value or text string in a range, worksheet, or workbook. How-
ever, no such feature exists to find the first occurrence of a number that is
between an arbitrary minimum and a maximum number. This hack pro-
vides some Excel VBA macro code to do just that.
Many people would go with a loop to get a number between
anominated range, but that can be extremely slowand hor-
ribly inefficient if the worksheet contain thousands of used
cells. The method in this hack makes use of the
SpecialCells
method to check numeric cells only.
Figure 7-18. Advanced Find in action
Find a Number Between Two Numbers #125
Chapter 7, Macro Hacks | 307
HACK
The code works in the same way as the standard Find feature does. That is,
it searches all cells on the worksheet if only a single cell is selected or only
the selected cells if more than one cell is selected.
It searches by rows, locating and selecting the first cell that has a value
between (not equal to) the specified minimum and maximum.
For this example, let’s begin with some data, as shown inFigure7-19.
The Code
Right-click on the sheet tab of the worksheet and select View Code
Insert
Module. In the new module, paste the following code:
Sub GetBetween()
Dim strNum As String
Dim lMin As Long, lMax As Long
Dim rFound As Range, rLookin As Range
Dim lFound As Long, rStart As Range
Dim rCcells As Range, rFcells As Range
Dim lCellCount As Long, lcount As Long
Dim bNoFind As Boolean
strNum = InputBox("Please enter the lowest value, then a comma, " _
& "followed by the highest value" & vbNewLine & _
vbNewLine & "E.g. 1,10", "GET BETWEEN")
If strNum = vbNullString Then Exit Sub
On Error Resume Next
lMin = Left(strNum, InStr(1, strNum, ","))
Figure 7-19. Data of mixed numbers in range A1:J17
Documents you may be interested
Documents you may be interested