Microsoft Office Tutorials and References
In Depth Information
Creating a Photo Album
Next Cll¶
'Restore screen updating¶
Application.ScreenUpdating = True¶
End Sub¶
This procedure operates on the current selection of cells.
Tip: The example file has the macro assigned to a button. Clicking the button cycles through the
various case changes.
Creating a Photo Album
Using this macro, you can insert all the pictures in a given path and arrange
them to simulate a photo album
Example file:
Scenario: This procedure allows you to quickly create a
sales brochure in Excel by inserting the pictures of products
into a worksheet so your client can readily see the product
with its specifications. It inserts all the pictures that reside in
a given path/folder and places them in a single worksheet,
emulating a photo album.
View the Appendix to learn how to store this procedure
in a Standard module.
Option Explicit¶
' * * * * *¶
Sub InsertPictures()¶
'Variable declaration¶
'Variable for each picture¶
Dim Shp As Shape¶
Dim i As Long¶
'Folder in which to search¶
Dim Folder As String¶
'Search in subfolders, too¶
Dim LookInSubFolders As Boolean¶
'Column and row counters¶
Dim Clm As Long, Rw As Long¶
'Worksheet in which to insert the images¶
Dim Sht As Worksheet¶
Search JabSto ::

Custom Search