XL97: Using the LoadPicture Function with an Image Control

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Partner or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Partners, please visit the following Microsoft Web site: For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site:

Creating the UserForm and the Macro Code

1. Save and close any open workbooks, create a new workbook, and then start the Visual Basic Editor (press ALT+F11).
2. On the Insert menu, click UserForm.
3. Add an Image control near the top and center of the UserForm, and then set the following values for the properties for the Image control.

         Property   Value
         -----------------
         Name       Image1
         AutoSize   True
         Height     100
         Width      100
   						

4. Add an OptionButton below the Image control to the UserForm and set the following values for the properties for the OptionButton.

         Property   Value
         ------------------------
         Name       OptionButton1
         Caption    HI
   						

5. Add another OptionButton below the first OptionButton to the UserForm and set the following values for the properties for the OptionButton.

         Property   Value
         ------------------------
         Name       OptionButton2
         Caption    BYE
   						

6. Add another OptionButton below the second OptionButton to the UserForm and set the following values for the properties for the OptionButton.

         Property   Value
         ------------------------
         Name       OptionButton3
         Caption    Clear
   						

7. Double-click the UserForm to display the code module that is associated with the UserForm.
8. Type the following code for the Initialize event for the UserForm:

         Private Sub UserForm_Initialize()
   
             'Select the "HI" option button.
             OptionButton1.Value = True
   
             'Load the Hi.bmp picture file into the Image control.
             Image1.Picture = LoadPicture("C:\Windows\Desktop\hi.bmp")
         End Sub
   						

NOTE: The path to your Desktop folder may be different, depending on how you logged on to Windows. If you log on to Windows with a password, the Desktop location may be the Windows\Profiles\<username>\Desktop folder. Therefore, you must use a different path in the LoadPicture function.

1. Type the following code for the Click events for the three OptionButtons:

         Private Sub OptionButton1_Click()
   
             'Load the Hi.bmp picture file into the Image control.
             Image1.Picture = LoadPicture("C:\Windows\Desktop\hi.bmp")
   
         End Sub
   
         Private Sub OptionButton2_Click()
   
             'Load the Bye.bmp picture file into the Image control.
             Image1.Picture = LoadPicture("C:\Windows\Desktop\bye.bmp")
   
         End Sub
   
         Private Sub OptionButton3_Click()
   
             'Clear the picture file in the Image control.
             Image1.Picture = LoadPicture("")
   
         End Sub
   						

Creating the Two Picture Files

1. Start Microsoft Paint.
2. Create the word HI by free hand. The letters should be about 1.5 inches tall.
3. On the Paint toolbar, click Select, and then draw a square box around the letters you created. The sides of the box should be about 2 inches long.
4. On the Edit menu, click Copy To, in the Copy To dialog box, locate your Desktop, type hi.bmp in the File name box, and then click Save.

NOTE: It is important to save your picture files to the Desktop because the macro code in this article refers to files in your Windows\Desktop folder.

1. Repeat steps 2-4, but type the word BYE and save the file as Bye.bmp.
2. Quit Microsoft Paint.

Running the Macro

1. In the Microsoft Excel Visual Basic Editor, run your UserForm.
   
   The UserForm is displayed, the picture in the Image control is the Hi.bmp picture, and the "HI" OptionButton is selected.
2. Click the "BYE" OptionButton.

The picture in the Image control is the Bye.bmp picture, and the "BYE" OptionButton is selected.

1. Click the "Clear" OptionButton.

The picture in the Image control is cleared completely.

1. Close the UserForm.

NOTE: The Image control in the UserForm does not display any picture when you view the UserForm while you are designing the UserForm.