Worksheet object (Calendar)
 

xl2k
I have a worksheet that I have placed the calendar control 9.0. I have vba
that calls the calendar and hides it after the date is selected. Everything
about the worksheet works great! The problem that I am having is that
everytime the worksheet is opened the calendar is a tinny bit smaller. So
after it is opened and closed a number of times it is so small and distorted
that you can not read the dates. So I have to go into design mode and resize
it larger and save it. Then it starts all over again, and starts getting
smallereverytime it is opened . Any ideas?????

Mike Rogers

Worksheet object (Calendar)
 

I've never experienced anything like this, but how about just placing the
calendar where you want it each time the workbook opens.

Option Explicit
Sub auto_open()

Dim myCC As OLEObject
Dim myRng As Range

With Worksheets("Sheet1")
Set myCC = .OLEObjects("calendar1")
Set myRng = .Range("b3:c9")
myCC.Top = myRng.Top
myCC.Left = myRng.Left
myCC.Width = myRng.Width
myCC.Height = myRng.Height
End With

End Sub

(Or resize it or whatever you need to do)

Mike Rogers wrote:

xl2k
I have a worksheet that I have placed the calendar control 9.0. I have vba
that calls the calendar and hides it after the date is selected. Everything
about the worksheet works great! The problem that I am having is that
everytime the worksheet is opened the calendar is a tinny bit smaller. So
after it is opened and closed a number of times it is so small and distorted
that you can not read the dates. So I have to go into design mode and resize
it larger and save it. Then it starts all over again, and starts getting
smallereverytime it is opened . Any ideas?????

Mike Rogers

--

Dave Peterson

Worksheet object (Calendar)
 

Dave

Thanks for the advise, and the code. I resized larger than I usually do and
placed the code and it seems to be working. I will really find out over
time. As a follow up note this same thing is occuring on at least six
separate pc's or laptops. It is a timesheet that was developed in xl2k and
is also running on all machines with xl2k. Thanks again Dave I do appreciate
all of your contributions on this sight.

Mike Rogers

"Dave Peterson" wrote:

I've never experienced anything like this, but how about just placing the
calendar where you want it each time the workbook opens.

Option Explicit
Sub auto_open()

Dim myCC As OLEObject
Dim myRng As Range

With Worksheets("Sheet1")
Set myCC = .OLEObjects("calendar1")
Set myRng = .Range("b3:c9")
myCC.Top = myRng.Top
myCC.Left = myRng.Left
myCC.Width = myRng.Width
myCC.Height = myRng.Height
End With

End Sub

(Or resize it or whatever you need to do)

Mike Rogers wrote:

xl2k
I have a worksheet that I have placed the calendar control 9.0. I have vba
that calls the calendar and hides it after the date is selected. Everything
about the worksheet works great! The problem that I am having is that
everytime the worksheet is opened the calendar is a tinny bit smaller. So
after it is opened and closed a number of times it is so small and distorted
that you can not read the dates. So I have to go into design mode and resize
it larger and save it. Then it starts all over again, and starts getting
smallereverytime it is opened . Any ideas?????

Mike Rogers

--

Dave Peterson