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

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

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