Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 2
Default Creating a "sensitive regions" image on a form

Hi all
I would want to create a "sensitive regions" image on a form. For example,
it would be a european map where the user could select each country.
I know I could do it on a sheet using transparent shapes (one for each
country) on top of the image, but how could I do it on a UserForm?

Thank you


  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1,327
Default Creating a "sensitive regions" image on a form

Hi

You can use labels, transparent without border and caption, and code their
mousedown, click and/or mouseup events. Or you could "simply" hardcode the
regions of the image; far more work, far less components. Here a simple NSWE
example:

Private Sub Image1_MouseUp(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)

Dim S As String

Select Case X
Case 0 To Image1.Width / 2
S = " WEST"
Case Else
S = " EAST"
End Select
Select Case Y
Case 0 To Image1.Height / 2
S = "NORTH " & S
Case Else
S = "SOUTH " & S
End Select

MsgBox S
End Sub

HTH. Best wishes Harald

"Zorro" skrev i melding
...
Hi all
I would want to create a "sensitive regions" image on a form. For example,
it would be a european map where the user could select each country.
I know I could do it on a sheet using transparent shapes (one for each
country) on top of the image, but how could I do it on a UserForm?

Thank you




Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
creating a "date selector box" or "pull down box" in a cell GaryK Excel Worksheet Functions 2 September 30th 09 01:45 AM
Creating form with "tick boxes" Jane13 Excel Discussion (Misc queries) 1 July 28th 08 08:42 PM
Automatically adding image extension ".jpg" to end of image name Alain Excel Discussion (Misc queries) 3 June 19th 08 03:21 PM
any formula to convert numbers in word form, e.g. "2" as "Two"? Neeraj Excel Worksheet Functions 1 May 26th 08 01:03 PM
How to find non-blank cell values "hidden" under merged regions? david.karr Excel Discussion (Misc queries) 7 April 7th 07 11:35 PM


All times are GMT +1. The time now is 09:33 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"