using a map to fill in a textbox

[Gideon]

Hi
I have created a geographical map with different provinces in Excel 2003. I
have assigned a macro to each province and it works well.
I have also created a userform.

When the province textbox is prompting for input, I want the map to appear
and the user would click on a province. The name of the province would then
be pasted into the textbox and the map dissappear.

Is this possible?
Regards
Gideon

 

[Ken Johnson]

Hi
I have created a geographical map with different provinces in Excel 2003. I
have assigned a macro to each province and it works well.
I have also created a userform.

When the province textbox is prompting for input, I want the map to appear
and the user would click on a province. The name of the province would then
be pasted into the textbox and the map dissappear.

Is this possible?
Regards
Gideon

I made a simple map with 6 shapes grouped together, renamed the group
MyMap and renamed each shape (Adelaide, Brisbane, Darwin, Melbourne,
Perth and Sydney). Each shape was separately assigned to the same
macro...

Sub Cap_City()
UserForm1.TextBox1.Value = Application.Caller
End Sub

The userform (UserForm1) has its ShowModal property set to False and
has 2 textboxes (TextBox1 and TextBox2) with the following
TextBox_Enter code...

Private Sub TextBox1_Enter()
ActiveSheet.Shapes("MyMap").Visible = True
End Sub

Private Sub TextBox2_Enter()
ActiveSheet.Shapes("MyMap").Visible = False
End Sub

When textbox1 is entered MyMap appears and when MyMap is clicked the
appropriate city name appears inside it.

When TextBox2 is entered MyMap disappears.

So I guess the answer to your question is yes.

Ken Johnson

 

[Max]

Ken,
Could you provide a link here to d/l your sample book?
I'd like to learn how that works. Thanks.

 

[Ken Johnson]

Ken,
Could you provide a link here to d/l your sample book?
I'd like to learn how that works. Thanks.
--
Max
Singaporehttp://savefile.com/projects/236895
xdemechanik
---

Hi Max,

It's a bare bones workbook I cobbled together just to test the
possibility.
I will email you a copy.

Ken Johnson

 

[Max]

Thanks, Ken