Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
vba newbie need help.
hi according to the below link method, how can i use the picture again for
another cell range? can some kind soul tell me how to write the programming. thanks http://www.mcgimpsey.com/excel/lookuppics.html Private Sub Worksheet_Calculate() Dim oPic As Picture Me.Pictures.Visible = False With Range("F1") For Each oPic In Me.Pictures If oPic.Name = .Text Then oPic.Visible = True oPic.Top = .Top oPic.Left = .Left Exit For End If Next oPic End With End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
vba newbie need help.
Maybe...
Option Explicit Private Sub Worksheet_Calculate() Dim oPic As Picture Dim myCell As Range Dim myRng As Range Me.Pictures.Visible = False 'what cells contain the names of the pictures that should be visible? Set myRng = Me.Range("F1,h9") For Each myCell In myRng.Cells With myCell For Each oPic In Me.Pictures If oPic.Name = .Text Then oPic.Visible = True oPic.Top = .Top oPic.Left = .Left Exit For End If Next oPic End With Next myCell End Sub Oligo wrote: hi according to the below link method, how can i use the picture again for another cell range? can some kind soul tell me how to write the programming. thanks http://www.mcgimpsey.com/excel/lookuppics.html Private Sub Worksheet_Calculate() Dim oPic As Picture Me.Pictures.Visible = False With Range("F1") For Each oPic In Me.Pictures If oPic.Name = .Text Then oPic.Visible = True oPic.Top = .Top oPic.Left = .Left Exit For End If Next oPic End With End Sub -- Dave Peterson |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
vba newbie need help.
thanks dave. it works and solve my problem. thanks so much even though im not
sure about the program hehe. "Dave Peterson" wrote: Maybe... Option Explicit Private Sub Worksheet_Calculate() Dim oPic As Picture Dim myCell As Range Dim myRng As Range Me.Pictures.Visible = False 'what cells contain the names of the pictures that should be visible? Set myRng = Me.Range("F1,h9") For Each myCell In myRng.Cells With myCell For Each oPic In Me.Pictures If oPic.Name = .Text Then oPic.Visible = True oPic.Top = .Top oPic.Left = .Left Exit For End If Next oPic End With Next myCell End Sub Oligo wrote: hi according to the below link method, how can i use the picture again for another cell range? can some kind soul tell me how to write the programming. thanks http://www.mcgimpsey.com/excel/lookuppics.html Private Sub Worksheet_Calculate() Dim oPic As Picture Me.Pictures.Visible = False With Range("F1") For Each oPic In Me.Pictures If oPic.Name = .Text Then oPic.Visible = True oPic.Top = .Top oPic.Left = .Left Exit For End If Next oPic End With End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
NEWBIE | Excel Discussion (Misc queries) | |||
Real Newbie newbie question | New Users to Excel | |||
newbie needs help | Charts and Charting in Excel | |||
Help for a newbie... please | Excel Worksheet Functions | |||
Help for a newbie? | Excel Worksheet Functions |