display pdf in asp net c# : How to rotate a pdf page in reader application control tool html azure asp.net online 1200%20macro_examples44-part163

441
'remove custom menu if it exists
On Error Resume Next
CommandBars("New Menu System").Delete
On Error GoTo 0
'create new menu and display it
Set newMenu = CommandBars.Add(Name:="New Menu System", _
Temporary:=True, _
MenuBar:=False)
newMenu.Visible = True
'add a menu to the new CommandBar
Set newControl = newMenu.Controls.Add(Type:=msoControlPopup)
newControl.Caption = "Menu1"
'add a menu item to the new menu
With newControl
Set newItem = .Controls.Add(Type:=msoControlButton)
End With
With newItem
.Caption = "This Says Hello"
.OnAction = "SayHello"
End With
'add second control that acts as a button
Set newItem = newMenu.Controls.Add( _
Type:=msoControlButton, Temporary:=True)
With newItem
.Caption = "Control Text"
.Style = msoButtonCaption
.TooltipText = "Control Tool Tip"
.OnAction = "SayHello"
End With
End Sub
Sub SayHello()
MsgBox "Hello"
End Sub
25.7 Hiding The Worksheet Menu
You can hide the Excel worksheet menu by using the following statement
How to rotate a pdf page in 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#
rotate all pages in pdf and save; rotate one page in pdf reader
How to rotate a pdf page in 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 page in pdf and save
442
Application.CommandBars(1).Enabled = False
However, if you press the ALT key and then the arrow keys, the menu is re
-
displayed.  There is
an easy way to solve the ALT key access to the disabled menus:
Application.CommandBars(1).Enabled = False
MenuBars.Add.Activate
The second line prevents the ALT key from working by creating and activating a blank menubar.
Since it has no menus, it is not visible or accessible.
To restore the menus, use the following statements:
Application.CommandBars(1).Enabled = True
MenuBars(xlWorksheet).Activate
25.8 Putting A DropDown On A CommandBar
The following creates a commandbar with a dropdown on it and responds with the user's
selection.
Sub CommandBarDemo()
Dim cBar As CommandBar
Dim I As Integer
'delete the bar if it exists
On Error Resume Next
CommandBars("Combo Bar").Delete
On Error GoTo 0
'create the commandbar and make visible
Set cBar = CommandBars.Add("Combo Bar", msoBarFloating)
cBar.Visible = True
'add a dropdown control
With cBar.Controls.Add(msoControlDropdown)
'assign a macro to the drop down
.OnAction = ThisWorkbook.Name & "!DropDownOnAction"
'make wider:
.Width = 200
'add items to the drop down box
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.
pdf reverse page order preview; reverse page order pdf
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 page order reverse; rotate pdf pages individually
443
For I = 1 To 10
.AddItem "drop down item " & I
Next
End With
End Sub
Sub DropDownOnAction()
'this displays what was selected
With CommandBars.ActionControl
MsgBox "You selected " & .Text
End With
End Sub
25.9 Creating A Menu That Appears Only When A
Particular Workbook Is Active
The following code illustrates how to have a unique menu added to the worksheet menu
whenever a particular workbook is active.  To do this, place the following code in the workbook's
code module:
Private Sub Workbook_Deactivate()
'call routine that removes menu for this workbook
Remove_Workbook_Menu
End Sub
Private Sub Workbook_Activate()
'call routine that adds the menu for this workbook
Add_Workbook_Menu_And_Items
End Sub
You can access the workbook's code module by right clicking on the workbook object in the
Project Explorer and selecting view code
In a regular code module, put the following code:
Sub Remove_Workbook_Menu()
'this removes the menu if it is present
On Error Resume Next
CommandBars("Worksheet Menu Bar").Controls("OPTIONS").Delete
On Error GoTo 0
End Sub
Sub Add_Workbook_Menu_And_Items()
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
pdf reverse page order; how to permanently rotate pdf pages
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
rotate pages in pdf expert; pdf rotate pages separately
444
Dim newMenu
Dim newMenuItem
'delete the menu if it exists by calling this subroutine
Remove_Workbook_Menu
'add a new menu to the worksheet menu.  The menu is temporary and
'will disappear when Excel closes
With CommandBars("Worksheet Menu Bar")
Set newMenu = .Controls.Add( _
Type:=msoControlPopup, _
before:=.Controls("Window").Index, _
temporary:=True)
End With
'give the new menu a name
newMenu.Caption = "OPTIONS"
'add a menu item to the new menu
Set newMenuItem = newMenu.Controls.Add(Type:=msoControlButton)
'give the new menu a name and assign a macro to it
newMenuItem.Caption = "Menu Item 1"
newMenuItem.OnAction = "MenuItem1OnAction"
'add a second menu item to the new menu
Set newMenuItem = newMenu.Controls.Add(Type:=msoControlButton)
'give the new menu a name and assign a macro to it
newMenuItem.Caption = "menu Item 2"
newMenuItem.OnAction = "MenuItem2Onaction"
End Sub
Lastly, create an Auto_Close macro that calls the Remove_Menu macro when the workbook is
closed and an Auto_Open macro that displays the menu when the workbook is first opened.
Sub Auto_Close()
Remove_Workbook_Menu
End Sub
Sub Auto_Close()
Add_Workbook_Menu_And_Items
End Sub
C# TIFF: How to Rotate TIFF Using C# Code in .NET Imaging
Tiff Annotation. Rotate a Tiff Page. |. Home ›› XDoc.Tiff ›› C# Tiff: Rotate Tiff Page. PDF in C#, C#.NET PDF Reading, C#.NET Annotate PDF in WPF, C#
how to reverse page order in pdf; how to rotate one page in pdf document
C# PDF File & Page Process Library SDK for C#.net, ASP.NET, MVC
Barcoding. XImage.Barcode Reader. XImage.Barcode Generator. Others. Page: Rotate a PDF Page. PDF Read. Text: Extract Text from PDF. Text: Search Text in PDF.
saving rotated pdf pages; pdf rotate one page
445
25.10 Adding A Menu And Menu Items To The
Worksheet Menu
The following adds a menu at the end of the worksheet menu, and then adds menu items and sub
menus to it.
Sub AddMenu()
With Application.CommandBars(1).Controls _
.Add(msoControlPopup)
.Caption = "NewMenu"
.Controls.Add(msoControlButton).Caption = "Item 1"
With .Controls.Add(msoControlPopup)
.Caption = "Item 2"
.Controls.Add(msoControlButton).Caption = "Sub1Item2"
With .Controls.Add(msoControlPopup)
.Caption = "Sub2Item2"
.Controls.Add(msoControlButton) _
.Caption = "Sub1Sub2"
.Controls.Add(msoControlButton) _
.Caption = "Sub2Sub2"
.Controls.Add(msoControlButton) _
.Caption = "Sub3Sub2"
End With
.Controls.Add(msoControlButton).Caption = "Sub3Item2"
End With
.Controls.Add(msoControlButton).Caption = "Item3"
End With
End Sub
25.11 Adding A New Menu To The Worksheet Menu
The following code is another example that adds a new custom menu to the worksheet menu, just
before the Help menu, and place two commands on it.  The OnAction property specifies the
macro each command runs:
Public Sub AddCustomMenu()
Dim barWS As CommandBar
Dim mnuCustom As CommandBarControl
Dim HelpIndex As Integer
Set barWS = CommandBars("Worksheet Menu Bar")
HelpIndex = barWS.Controls("Help").Index
Set mnuCustom = barWS.Controls.Add(Type:=msoControlPopup, _
Before:=HelpIndex)
With mnuCustom
.Caption = "&Custom"
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Show Data Form"
.OnAction = "ShowDataForm"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Print Data List"
VB.NET PDF remove image library: remove, delete images from PDF in
pages extract, copy, paste, C#.NET rotate PDF pages, C# a specific image from PDF document page in VB PDF image in preview without adobe PDF reader component in
save pdf rotated pages; rotate pdf pages on ipad
C# PDF: PDF Document Viewer & Reader SDK for Windows Forms
Rotate270: Rotate the currently displayed PDF page 90 degrees BurnAnnotation: Burn all annotations to PDF page. for you to create and add a PDF document viewer
pdf rotate page; reverse page order pdf online
446
.OnAction = "PrintDataList"
End With
End With
End Sub
25.12 Disable SaveAs Menu
This following will disable the Save As menu item on the worksheet menu.:
Sub DisableSaveAsMenuItem()
With CommandBars("Worksheet Menu Bar")
With .Controls("File")
.Controls("Save As...").Enabled = False
End With
End With
End Sub
Setting theEnabled property back toTrue turns the Save As menu item back on.
25.13 Resetting The Menus
The following will reset the worksheet menus:
MenuBars(xlWorksheet).Reset
Please note that this will remove all modifications made by any add
-
in.
25.14 Protecting Commandbars
To protect a commandbar from modification, use a statement like the following:
CommandBars("Worksheet Menu Bar").Protection = msoBarNoCustomize
To remove the protection, use:
CommandBars("Worksheet Menu Bar").Protection = msoBarNoProtection
The value ofProtection can be can be one of or a sum of the following
MsoBarNoProtection
MsoBarNoCustomize
msoBarNoResize
msoBarNoMove
msoBarNoChangeVisible
msoBarNoChangeDock
msoBarNoVerticalDock
msoBarNoHorizontalDock.
447
25.15 How To Add A Menu Item Separator Bar
Set theBeginGroup property toTrue to add a separator bar before a new menu item or a button
on a command bar.
The following illustrates how to add a separator bar above a menu item added to the Tools menu:
Dim menu_Item
'add a temporary menu item to the Tools menu
'it will disappear when Excel is closed
'but not when the file is closed unless the remove macro below is called.
With CommandBars("Worksheet Menu Bar").Controls("Tools")
Set menu_Item = _
.Controls.Add(Type:=msoControlButtonTemporary:=True)
End With
'assign name and macro to the menu item.  Also, put a
'separator line above it by setting BeginGroup to True
With menu_Item
.Caption = "This Says Hello"
.OnAction = "SayHello"
'this puts the separator bar above the menu item
.BeginGroup = True
End With
25.16 Determining Which Button Was Clicked On A
Toolbar
The following illustrates how to determine which button was clicked on a toolbar.  Create a
custom toolbar called TestBar1, add three custom controls to it, and set their captions to One,
Two, and Three.  Assign this macro to each button:
Sub WhichButtonWasPressed()
With CommandBars("TestBar1")
'return the caption or name of the button that was clicked
Select Case CommandBars.ActionControl.Caption
'match the caption to a case statement
Case "One"
MsgBox "You pressed One"
448
Case "Two"
MsgBox "You pressed Two"
Case "Three"
MsgBox "You pressed Three"
End Select
End With
End Sub
Please note that the aboveCase statements are case sensitive unless you putOption Compare
Text at the top of your module or convert all text to the same case.
Another way to determine which button is clicked is to use theTag orParameter property of the
control:
MsgBox CommandBars.ActionControl.Parameter
25.17 CommandBars And Control Numbers
The following illustrates modifying a menu using the menu's control number instead of its name.
Names are language specific.
Sub Add_Menu_Item()
Dim ctlMenu As CommandBarControl
Dim ctlMenuItem As CommandBarControl
'remove before adding!
RemoveMenuItem
'
'the number 30007  is Tools menu
'
Set ctlMenu = _
Application.CommandBars(1).FindControl(, 30007)
Set ctlMenuItem = _
ctlMenu.Controls.Add(Type:=msoControlButton)
ctlMenuItem.Caption = "QuickTable"
ctlMenuItem.OnAction = ThisWorkbook.Name & "!QuickTable"
End Sub
Sub RemoveMenuItem()
Dim ctlMenu As CommandBarControl
On Error Resume Next
Set ctlMenu = _
Application.CommandBars(1).FindControl(, 30007)
ctlMenu.Controls("QuickTable").Delete
End Sub
449
25.18 How To Add A Short Cut Menu
Syntax
-
wise, you'd access shortcut menus exactly the same way you add them to regular menus.
The trick is knowing which one to reference, since there are 40 of them.  The following article on
MS Knowledge base is about 19 pages, and is a good reference on command bars in general.
Page 12 contains a list of the built
-
in shortcut bar names.
"XL97: WE1183 "Customizing Menu Bars, Menus and Menu Items"
http://support.microsoft.com/support/kb/articles/q166/7/55.asp
25.19 TextBoxes On CommandBars
TextBoxes on CommandBars work just like normal textboxes. The easiest way to read the text is
in the procedure that you have assigned to the textbox control place the following code:
Dim szText As String
szText = CommandBars.ActionControl.Text
25.20 Listing The Shortcut Menus
The following macro creates a list on the active sheet of all the shortcut menus and the menu
items on each.
Sub List_Short_Cut_Command_Bars_And_Menus()
Dim cell As Range
Dim R
As Integer
Dim c
As Integer
Dim ctlBar
As CommandBar
R = 2
Range("a1").Value = "Index #"
Range("b1").Value = "Commandbar Name"
Range("c1").Value = "menu item captions"
For Each ctlBar In CommandBars
If ctlBar.Type = msoBarTypePopup Then
Cells(R, 1) = ctlBar.Index
Cells(R, 2) = ctlBar.Name
For c = 1 To ctlBar.Controls.Count
Cells(R, c + 2) = _
ctlBar.Controls(c).Caption
Next
R = R + 1
End If
Next ctlBar
Cells.EntireColumn.AutoFit
MsgBox "All done"
End Sub
25.21 Menu Code Available On The Internet
450
If you head over to theBaarns web site
, you can pick up their Developer Jumpstart file.  In
addition to many other code samples, this file contains a table driven CommandBar builder. All
you have to do is fill out the table and include it and one extra code module in your project, and it
will build whatever commandbars you specified in the table automatically.  It builds menubars,
toolbars and popup menus all from the same table.
You can find several examples of menu
-
making code at John Walkenbach's site,
http://www.j
-
walk.com/ss
Look in theExcel Developer Tips section
. Also, check out the downloads section.  Several of the
files include code that adds a menu item to the Tools menu.
25.22 Internet Articles On How To Change The Menus
For more information on how to change the Excel menus, download and run the following files.
When you run the files, they install a word document that you can then open and read.
Customizing Menu Bars, Menus, and Menu Items
How to Prevent Customization of Menus and Toolbars
25.23 Disabling Commandbar Customization
If you are using Excel 2002, it is possible to prevent a user from modifying the commandbars.
The statement is::
CommandBars.DisableCustomize = True
To enable customization use:
CommandBars.DisableCustomize = False
If you application still needs to run under an earlier version, use the following approach:
Dim
cBars
As Object
Set
cBars =
Application.CommandBars
If Val(Application.Version)
>= 10
Then
cBar.
DisableCustomize = True
End If
Documents you may be interested
Documents you may be interested