How To Write An API To Control The Zoom Of A Worksheet

Apr 19, 2007

I want to know how to make a spreadsheet automatically control the zoom of a worksheet depending on the size of the screen it is opened on. For example, if it is opened on a screen of a certain size then it will set the zoom to 80% so the worksheet will show only a certain section. I want my worksheets to look the same on even the larger screens and not show the unused rows and columns around the section I am wanting to highlight.

In a previous thread I was told I might need to write an API to help me with achieving this. First of all, what is an API? Secondly, how do I go about writing one?

ADVERTISEMENT

Zoom In By Using The ActiveWindow.Zoom Control

Nov 28, 2008

I know you can predefine the level of zoom you want by using the ActiveWindow.Zoom control. I'm trying to find some code to Zoom in by a particular percentage. For example +10% zoom, so if you are currently on 90%, excel zooms to 100%, click again and then get a zoom of 110%.

View 3 Replies View Related

Select Next Control / Cell On Worksheet After Enter In Control

Jan 9, 2008

Within the ComboBox properties, is there anyway to control after "enter" his hit, you move to the right instead of down (similar to the edit under Tools/Options)?

View 9 Replies View Related

Determine And Write To The Last Row Of A Worksheet

Sep 21, 2009

I managed to write my script with pretty much the info I could find on the forums (yes!) but I need to write my data to the last row. Columns A - D of the last row will be populated with the content of my variables. This little snipped gives me the first empty row:

View 5 Replies View Related

Write This Worksheet Formula In VBA

Jan 1, 2010

I want to write the following worksheet function in VBA. In cell B1 : =IF(OR(A1={1,2,3,4,5,6,7,8,9,0}),"Yes","No").

View 3 Replies View Related

VBA - How To Write A Sub To Prevent All Changes To WorkSheet

Feb 28, 2014

How do I write a sub to prevent all changes to a worksheet?

This is part of my thinking in covering all possible mishaps that could occur when working with sheet movement. If I could somehow introduce an active protection on either my Sheets(1) or Sheets("Main"), then I could prevent accidental writing to or removal of said sheet.

View 3 Replies View Related

Write Userform Data To Worksheet

Dec 1, 2009

I have two userforms. The 1st is called “add a facility” and the second is called “Edit Facility”.
The first userform works pretty well. It places all the data in the right columns in the first empty row at the end of the table. Then the “sort” procedure places the “new” facility data in the right category. Everything is good there. Here's the code.

Private Sub CmndInput_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Facilities")

' find first empty row in database
iRow = ws. Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

'check for a Facility
If Trim(Me.TextFacility.Value) = "" Then
Me.TextFacility.SetFocus
MsgBox "Please enter a Facility"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.ListBox1.Value
ws.Cells(iRow, 5).Value = Me.TextFacility.Value
ws.Cells(iRow, 4).Value = Me.ListBox2.Value
ws.Cells(iRow, 6).Value = Me.TextType.Value
ws.Cells(iRow, 7).Value = Me.ListBox3.Value
ws.Cells(iRow, 12).Value = Me.TextConstneed.Value
ws.Cells(iRow, 16).Value = Me.TextPREAPP.Value
ws.Cells(iRow, 17).Value = Me.TextPreapsub.Value
ws.Cells(iRow, 3).Value = Me.TextDescription.Value
ws.Cells(iRow, 8).Value = Me.ListBox4.Value
ws.Cells(iRow, 9).Value = Me.ListBox5.Value
ws.Cells(iRow, 2).Value = Me.txtRefnum.Value
ws.Cells(iRow, 21).Value = Me.txtappdate.Value
ws.Cells(iRow, 24).Value = Me.ListBox6.Value
ws.Cells(iRow, 20).Value = Me.txtsubdate.Value
ws.Cells(iRow, 10).Value = Me.ListBox7.Value

' SORT Macro...

View 8 Replies View Related

Macro To Write VBA Code In A Worksheet

Jul 13, 2006

how to write a macro, which in turn write some VBA code in a worksheet?

View 4 Replies View Related

Set Textbox Control Source To Hidden Worksheet NOT Active Worksheet?

May 6, 2014

I have created an excel worksheet that will provide budgeting and estimating tools for my project managers. All data used to be manual entry and took a good while to complete. I am trying to automate the process with VBA.

I created a UserForm called InfoVerify1. On that form I have TextBox 1 - 10. When the UF opens, the boxes display project information from my worksheet called "Basis of Estimate", also known as Sheet26.

The TextBox1 ControlSource is set to "E4". When I run the macro with Sheet26 active, the proper information fills in. However, when I am on the Start page or any other worksheet and I run the macro, it tries to fill in the text boxes with E4, etc, from the active sheet. I tried changing the ControlSource to "Sheet26,E4" or any combo thereof with only error messages.

how to get it to refer to a cell on a particular worksheet and hold to that worksheet no matter which sheet I am on at the time I run the Userform?

View 3 Replies View Related

Macro To Write Protect A Worksheet With A Password

Dec 10, 2006

I'm trying to protect a worksheet with a password using macro.

View 9 Replies View Related

Write Visible Worksheet Rows/Columns To Text File

Feb 5, 2008

I am trying to write the contents of a worksheet to a notepad file. Also, the worksheet has some hidden columns.

View 9 Replies View Related

To Write A Macro That Will Insert A Formula Directly Into The Cells In Column M Of My Worksheet

Aug 9, 2007

I am trying to write a macro that will insert a formula directly into the cells in column M of my worksheet.

The worksheet has about 3400 rows. When I run the macro it does not adjust the cell reference in the formula so I am getting the same value in all 3400 rows.

I am using the following ....

View 9 Replies View Related

Control Tip For Shape In Worksheet?

Jul 15, 2014

Is there any way to place a Control Tip for a shape on a excel worksheet?

View 3 Replies View Related

Refedit Control In Worksheet

Jan 23, 2007

I would like to use the RefEdit control in a worksheet in order to select a range of cells and pass its address to a different cell without code.

I thought of using the LinkedCell property of the RefEdit as I used it for a ComboBox.

View 9 Replies View Related

Return Control Name On Worksheet

Sep 13, 2007

what is wrong with the following code where I'm simply trying to return (evaluate) the name of a control toolbar object from a sheet: If ActiveSheet.Shapes(1). OLEObject.Name = "TextBox" Then

View 8 Replies View Related

Add TabStrip Control To Worksheet

Jun 14, 2008

When I place an ActiveX TabStrip or a MultiPage onto a spreadsheet, and then try to put a ComboBox onto the TabStrip, the ComboBox will fall behind the TabStrip when I run my pointer across the TabStrip. I used the Arange order from the Draw toolbar to place ComboBox on top and the TabStrip behind, but to no avail. (I would love to use a User Form but lack the VBA know how).

View 5 Replies View Related

Calender Control On Worksheet Shrinks

Sep 10, 2006

I have a spreadsheet with many cells that require a date. I have added calendar control 11.0 and running it with the code below. The problem is, that everytime the sheet is opened, the calendar gradually gets smaller and smaller each time the workbook is opened. I have tried resizing through formatting the object, but after opening the workbook several times, it's has shrunk down to unusable again.

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yy"
ActiveCell.Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("B161:B184,I161:I184,P161: P184,"), Target) Is Nothing Then
Calendar1.Left = Target.Left
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

View 3 Replies View Related

Worksheet Form Control Properties

Sep 21, 2006

how to get a list of the properties for form control shapes (not control toolbox shapes) that are placed on a worksheet (not on a userform). Eg., a button, checkbox, combobox, etc.

If it's possible, I'm interested in working with properties like "enabled", "caption", etc. that aren't listed on the "Format Control Properties" dialog.

I understand you can edit properties of a form control shape via VBA code (See example below), however, I can't seem to find anything within the object browser about them.

EXAMPLE
With ActiveSheet.Shapes("Scroll Bar 2").ControlFormat
.Min = 10
.Max = 150
End With

View 5 Replies View Related

Stock Control With Controls On Worksheet

May 3, 2008

I would like to know if it's possibale to use VB, to auto manage these levels
IE, 1 box asks for the part number 2nd asks you how many 3rd/4th boxes are "+", "-"
When + or - is pressed the part number will automatically add's/subtracts that part level. I had 10x abcde's I enter 2 in "How Many", then press "-" it will then adjust the level from 10 to 8

View 5 Replies View Related

Print Worksheet With Checked CheckBox Control

Sep 22, 2006

I am creating a main worksheet (Legend) in which information will be entered and then populate to other areas (worksheets) within the workbook. I would like to create a print macro - that will run and print all the worksheets that we have selected on the "legend" page. These worksheets would have been selected by ticking a check box.

My question is how to associate a check box to a worksheet? For example - the second worksheet is named " Schedule A" 3rd "Schedule B" and so on.

- The check boxes will be name schedule A, Schedule B and so on.
- I would like to associate (link) the checkbox Schedule A with the Worksheet of the same name. Then when this checkbox is selected, and the print macro runs it will print the worksheets that are selected.

View 5 Replies View Related

Filter Worksheet Data With UserForm Control

Sep 1, 2007

I have a database in Sheet1, and need to make a drop-down list for each column title, so that it would filter out the necessary letters or words. E.g. I type "au" and see the words starting "au" in one single list (like aura, aubergine, etc..)

View 5 Replies View Related

Calendar Control To Enter Chosen Month As Worksheet

Jul 17, 2009

I have a worksheet that has a Calendar on a worksheet from Calendar Control 8.0.

I want to be able to pick a month from the calendar and press a button to convert the selected month into a worksheet. I have a custom made calendar worksheet that I would like for it to be converted into.

I have uploaded my workbook. It contains the custom calendar worksheet as well as the calendar control.

The file is called "calendar.xls".

View 9 Replies View Related

Select Worksheet Based On ComboBox Control Choice

Sep 1, 2006

i have a user form with 4 combo boxes and one text box. what i've tried to do is make it so that if the month combo box reads january, then all of the info is placed in a worksheet called january. at the moment it is putting all the info inputted into one sheet. if some one could take a peek at the code below.

If cbomonth.Value = January Then
Sheets("January").Select

Range("A1").Select

Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) Or IsEmpty(ActiveCell.Offset(0, 1)) Or IsEmpty.....................

View 9 Replies View Related

Load Worksheet Picture Into UserForm Image Control

Aug 9, 2007

I have an image box on a userform in Excel VB. Is there ANY WAY to load an image into this image box from an object that I have loaded into an excel worksheet something like

If userform1.checkbox1=True Then
userform1.image.picture = loadpicture (Worksheets("Sheet1").shapes("Object 1"))
ElseIf userform1.checkbox2=True Then
userform1.image.picture = loadpicture (Worksheets("Sheet1").shapes("Object 2"))
Else
msgbox "No image"
Endif

View 2 Replies View Related

Calendar Control On Excel Worksheet - Default Start Date

Jul 9, 2012

I have set up a calendar control on a userform and got it to pop up when selecting one of 3 cells on a worksheet. The various bits of code making this work are below.

This code is attached to the Userform.

VB:
Private Sub Calendar1_Click()
With ActiveCell
.Value = Calendar1.Value

[Code]....

What I am struggling with is that I'd like to have the calendar that pops up in cell C18 (which is Date of Birth) default to starting on 1st January 1987 not todays date. Also, if there is a value in either of the 3 cells that use the calendar, then I'd like the calendar to display that date. If the cell is empty then todays date is fine for cells G3 and G26.

View 7 Replies View Related

Excel 2010 :: Open Form From Worksheet Control Button?

Aug 5, 2013

Excel 2010. How/where to define userform object?

Button on worksheet has following code:

Sub Button1_Click()
Load UserForm1
UserForm1.Show
End Sub

Execution of this code generates following error:

Run time error 424
Object required

How/where to define userform object?

View 1 Replies View Related

Custom Zoom Set At 90

Dec 23, 2008

If I send a workbook out with the zoom set at 90...will the zoom be at 90 when others open it.? Also, is there a worksheet event that I could insert to force a specific worksheet to always open with the zoom at 90??

View 2 Replies View Related

Defualt Zoom

Jul 31, 2008

Im using Excel 2007

How do i change the default zoom that excel views documents? Whatever view the last person saved the file as it opens in that zoom. I want it to open 75% zoom no matter what anyone saved the files as.

View 9 Replies View Related

Copy Zoom To New Sheet

Jan 22, 2009

I have a sub that copies worksheet to a different blank sheet in a different work book. Is there a way for me to set the zoom value on the 2nd sheet (the one being copied to) the same as the 1st sheet?

View 3 Replies View Related

Screen Zoom For A Workbook

Jan 24, 2013

I have just run into the situation where some users, magically and overnight , have widescreen monitors. This means the screen designs for 4:3 monitors show way too much on 16:9 monitors. I would like to put a control button on the opening page that gives them a choice of zoom, which usually seems to be 100% and 135%.

I'm thinking probably an IF sequence to parse their response and execute the appropriate zoom. But how can I make it effective for all the sheets in a workbook?

View 9 Replies View Related

How To Zoom Sheet Particular To 80% Using VBA On Closing

Mar 21, 2013

When user close the file, I want to make sure certain sheets can zoom to 80%. How can this be done using VBA?

View 1 Replies View Related

Zoom To 120 When Any Workbook Is Opened?

May 13, 2014

I am looking for a way to have Excel zoom to 120% whenever any workbook is opened. (My boss has poor eye sight...)

I set up a simple Macro

Code:
Sub Auto_Open()
ActiveWindow.Zoom = 120
End Sub

but I get an error that says "Run-time error '91': Object Variable or With block variable not set.

View 1 Replies View Related

Code To Open WS In 70% Zoom

Nov 16, 2006

I could need a code (WS code I assume) that open the sheet in 70% zoom every time I open that sheet. For now I get in 75% every time I open it. I guess that WS code will bypass that default setting, or bug, or what ever resets it 75%.

View 9 Replies View Related

Center On Zoom In A Frame

Jul 15, 2006

I am developing a form for emergency dispatching. One of the features of this dispatch sheet is that there are several maps in it that open on a seperate form. The map form has 4 maps that are picture files in an image. these images are in a frame. The different images are selected using option buttons. Given the background above, my problem is this. I have code that zooms in 50% each time the Click event for the image is fired. wht i am trying to do is make the zoomed view center where i clicked. this is the code that i have so far but it doesn't work all that spectacular, the closer I zoom in the further out of center the place i clicked gets untill it is out of view.

Private Sub Layout_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CurrentX = X
CurrentY = Y
End Sub

Private Sub PlantLayout_Click()
If Frame1.Zoom < 400 Then Frame1.Zoom = Frame1.Zoom + 50
frmmap.Frame1.ScrollLeft = CurrentX - (Frame1.Width / 2)
frmmap.Frame1.ScrollTop = CurrentY - (Frame1.Height / 2)
frmmap.Repaint
End Sub

View 2 Replies View Related

Zoom Worksheets To Fit Used Range

Aug 28, 2007

to apply a zoom to Fit Selection on all worksheets upon file opening? I've read many posts on this and understand how to apply this via worksheet activation, but haven't discovered how to make this to happen to all worksheets when the file is opened.

Zooming the selection needs to happen in the workbook module due to additional sheets being added at random and because it will facilitate the flow of the meeting so that we don't have to wait for the user to select and zoom.

Private Sub Workbook_Open()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets

LCol = Cells. Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column
Range(Cells(1, 1), Cells(1, LCol)).EntireColumn.Select

' Need code help here to apply to all worksheets
ActiveWindow.Zoom = True ' this works for the worksheet activation event only

Next ws

End Sub

View 5 Replies View Related

Adjust Zoom With Scroll Bar

Feb 21, 2008

I've used various "zoom" searches and can't find what I need. My users have different amounts of toolbars so the amount of screen space changes. I need to zoom so 4 graphs show. Am looking to enable the user with a scroll bar where the user could click / slide the control to change the zoom size on the screen so they can see the 4 graphs at their preferred "zoom".

I would prefer a control on the sheet and link it to a macro (or line of code if that's the proper phrase) and let the user decide (some people will want bigger zoom due to eyesight etc).

Private Sub ScrollBarZoom_Change()
ScrollBarZoom.Value = ActiveWindow.zoom.Value
End Sub

But I get Runtime error '424': Object required. Auto Merged Post Until 24 Hrs Passes;Nevermind. I found it. Answer was:

Private Sub ScrollBarZoom_Change()
ActiveWindow.zoom = ScrollBarZoom.Value
End Sub

View 2 Replies View Related

Avoid Hard Coding Control Name Inside Control Event Procedure?

Mar 4, 2014

Is there any way in VBA to refer to a control in its own event procedure without referring to it by name/hard-coding?

It might be clearer to explain by a dummy code example:

[Code] ......

I'm seeking what I would need to replace Line1 with.

View 11 Replies View Related

Excel Macros To Zoom In And Out Shapes

Aug 10, 2014

I am struggling to get a macro code for zooming in and out the shapes. I have a macro which fulfill half of my requirement. By assigning the below macro to the shape I am able to increase the current size to double by clicking on the shape however I need the same macro should retain the original size upon second click.

Here is my code to increase the size.

[Code] .....

"The requirement: Once after assigning the macro, on first click it should double the shape size and on second click it should retain the original size."

View 5 Replies View Related

Form Picture To Zoom-in On Mouse Over

Sep 17, 2009

I'm not sure if i've dreamt this or read it somewhere and if i have read i can't remember for the life of me.

I have a picture on a form of mine and what i want is when the user hovers over the picture, the image zooms in by x percent.

View 2 Replies View Related

How To Size App. Window To Fit Cells? (not Zoom)

Oct 16, 2009

This "smells" like a simple question, but I've had no luck finding a way to [programmatically] adjust the App.Window to fit around some cells.

I've found "Application.Goto", also the Application.Width/Height setting. The App.Width setting is pixel based, so if there's an easy way to know a cell's pixel-location, that'll work too!

View 10 Replies View Related

Graphically Adjusting Zoom Using A Scroll Bar

Dec 14, 2007

I am created a very simple account plan for colleagues in my team which is proving to be very poular with the exception of one thing.

I created the plan which is around 30 sheets on my laptops highest resolution setting. 1400 x 1050. Only one other colleague has this res available so of course when the rest of the team open it, it looks huge.

I need help with this as I'm still very new to excel, although learning very fast!

My preference for finding a fix for this would be to insert a scroll bar on each sheet that, when scrolled, changes the zoom of the page between a range of 50% and 100%. This may not be the best way of doing it but I'm trying to make the sheets as simple to use as possible as some of my colleagues are only just compuetr literate, let alone excel competent!

View 9 Replies View Related

ADVERTISEMENT