Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
AUTOSHAPE
I have learned from you guys to have a pic become visible depending on a
cells results. No I need help with an autoshape. I would like to do the same thing as the pic. exp... If a cell results is x as a result of an if statement I would like the auto shape to appear on the worksheet at a given cell. I am a novice so please bear with me. Thanks a million, Glenn |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
AUTOSHAPE
I am sure the method would be practically identical, but can't tell you how
to modify something I can't see. -- Regards, Tom Ogilvy "Glenn" wrote in message ... I have learned from you guys to have a pic become visible depending on a cells results. No I need help with an autoshape. I would like to do the same thing as the pic. exp... If a cell results is x as a result of an if statement I would like the auto shape to appear on the worksheet at a given cell. I am a novice so please bear with me. Thanks a million, Glenn |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
AUTOSHAPE
This is the macro I use to place pics on the worksheet. Please advise me on
what to change to used autoshapes in the same manner. "Tom Ogilvy" wrote: I am sure the method would be practically identical, but can't tell you how to modify something I can't see. -- Regards, Tom Ogilvy "Glenn" wrote in message ... I have learned from you guys to have a pic become visible depending on a cells results. No I need help with an autoshape. I would like to do the same thing as the pic. exp... If a cell results is x as a result of an if statement I would like the auto shape to appear on the worksheet at a given cell. I am a novice so please bear with me. Thanks a million, Glenn |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
AUTOSHAPE
Forgot to show the prgram...thanks
This is the program I used to place the pics on the worksheet. Please advise me how to used it for autoshapes. Option Explicit Private Sub Worksheet_Calculate() Dim oPic As Picture Dim myCell As Range Dim myRng As Range Set myRng = Me.Range("K5,L27,O29,Q13,p20,N5,o27") Me.Pictures.Visible = False For Each myCell In myRng.Cells With myCell For Each oPic In Me.Pictures If LCase(oPic.Name) = LCase(.Text) Then oPic.Visible = True oPic.Top = .Top oPic.Left = .Left End If Next oPic End With Next myCell End Sub "Tom Ogilvy" wrote: I am sure the method would be practically identical, but can't tell you how to modify something I can't see. -- Regards, Tom Ogilvy "Glenn" wrote in message ... I have learned from you guys to have a pic become visible depending on a cells results. No I need help with an autoshape. I would like to do the same thing as the pic. exp... If a cell results is x as a result of an if statement I would like the auto shape to appear on the worksheet at a given cell. I am a novice so please bear with me. Thanks a million, Glenn |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
AUTOSHAPE
Option Explicit
Private Sub Worksheet_Calculate() Dim oShp As Shape Dim myCell As Range Dim myRng As Range Set myRng = Me.Range("K5,L27,O29,Q13,p20,N5,o27") for each oShp in Me.Shapes if oShp.Type = msoAutoShape then oShp.Visible = False end if Next For Each myCell In myRng.Cells With myCell For Each oShp In Me.Shapes if oShp.Type = msoAutoShape then If LCase(oShp.Name) = LCase(.Text) Then oShp.Visible = True oShp.Top = .Top oShp.Left = .Left End If End if Next oShp End With Next myCell End Sub -- Regards, Tom Ogilvy "Glenn" wrote in message ... Forgot to show the prgram...thanks This is the program I used to place the pics on the worksheet. Please advise me how to used it for autoshapes. Option Explicit Private Sub Worksheet_Calculate() Dim oPic As Picture Dim myCell As Range Dim myRng As Range Set myRng = Me.Range("K5,L27,O29,Q13,p20,N5,o27") Me.Pictures.Visible = False For Each myCell In myRng.Cells With myCell For Each oPic In Me.Pictures If LCase(oPic.Name) = LCase(.Text) Then oPic.Visible = True oPic.Top = .Top oPic.Left = .Left End If Next oPic End With Next myCell End Sub "Tom Ogilvy" wrote: I am sure the method would be practically identical, but can't tell you how to modify something I can't see. -- Regards, Tom Ogilvy "Glenn" wrote in message ... I have learned from you guys to have a pic become visible depending on a cells results. No I need help with an autoshape. I would like to do the same thing as the pic. exp... If a cell results is x as a result of an if statement I would like the auto shape to appear on the worksheet at a given cell. I am a novice so please bear with me. Thanks a million, Glenn |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
AutoShape | Excel Discussion (Misc queries) | |||
autoshape | Excel Discussion (Misc queries) | |||
Autoshape | Excel Discussion (Misc queries) | |||
NAME OF AUTOSHAPE | Excel Discussion (Misc queries) | |||
autoshape | Excel Programming |