View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Simon Lloyd[_1317_] Simon Lloyd[_1317_] is offline
external usenet poster
 
Posts: 1
Default shape remains selected


Maybe then you could use:


VBA Code:
--------------------


ActiveChart.Deselect
--------------------



Instead of (or aswell as):


VBA Code:
--------------------


Application.CutCopyMode=False
--------------------




Henk;647035 Wrote:

Simon,

No, it does not.

tHenks

"Simon Lloyd" wrote:


Does this work for you?




VBA Code:
--------------------




ActiveSheet.ChartObjects("Graph02Base").Activate
ActiveChart.ChartArea.Select

ActiveChart.Shapes(LogoOld).Select
Selection.Delete

Sheets("Data availability").Shapes(LogoNew).Copy
ActiveSheet.ChartObjects("Graph02Base").Select
ActiveChart.Paste
Application.CutCopyMode=False
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("FileName.xls").Activate
Range("A1").Select


--------------------






Henk;645900 Wrote:

Based upon user selections, I delete and copy in flags and logo's in

a
chart.
Somehow, in some charts, the shape I copied in remains selected. This
is
really no problem in Excel 2003 running under Vista, neither in Excel
2007
running under Vista, but it is in Excel 2007 running under XP. Charts
become
totaly corrupted and unpresentable. Code used :

ActiveSheet.ChartObjects("Graph02Base").Activate
ActiveChart.ChartArea.Select

ActiveChart.Shapes(LogoOld).Select
Selection.Delete

Sheets("Data availability").Shapes(LogoNew).Copy
ActiveSheet.ChartObjects("Graph02Base").Select
ActiveChart.Paste
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("FileName.xls").Activate
Range("A1").Select

When I select the ChartArea after running the code, I see that the
LogoNew
is selected. When I select a title in the graph, the LogoNew becomes
unselected, but then the title remains selected. The only way to get
rid of
it is delete the LogoNew and Undo afterwards (but I can not find VB
code to
reproduce this).

Question is : How do I Unselect a shape on a Chart?r


--
Simon Lloyd

Regards,
Simon Lloyd
'Microsoft Office Help' ('The Code Cage - Microsoft Office Help -

Microsoft Office Discussion' (http://www.thecodecage.com))

------------------------------------------------------------------------
Simon Lloyd's Profile: 1
View this thread: 'shape remains selected - The Code Cage Forums'

(http://www.thecodecage.com/forumz/sh...d.php?t=180020)

'Microsoft Office Help' (http://www.thecodecage.com)

.



--
Simon Lloyd

Regards,
Simon Lloyd
'Microsoft Office Help' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: 1
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=180020

Microsoft Office Help