Take a look at this:
http://www.ozgrid.com/forum/showthread.php?t=34916
Regards,
Ryan---
--
RyGuy
"Graham Whitehead" wrote:
> There really isnt much to the loop just setting headings to display the
> appropraite information to populate the charts - and the copy and paste
> module is called
>
> For x = 1 To 7
> Windows(wbSourceWB).Activate
> Sheets("Data Comparison").Select
> Range("D2").Value = arrGlobalChannel(2)
> Range("D3").Value = arrMidChannel(1)
> Range("D5").Value = arrTopEvType(6)
> Range("D6").Value = arrBottomEvType(x)
> Call Copy_Charts(This_Sheet, intSlideCount, ppApp, ppSlide,
> wbSourceWB)
> Next x
>
> "John Bundy" <(E-Mail Removed)(remove)> wrote in message
> news:A1A06E00-35F4-43DC-9DB7-(E-Mail Removed)...
> > Can you show a little more code, need to see the loop logic.
> > --
> > -John
> > Please rate when your question is answered to help us and others know what
> > is helpful.
> >
> >
> > "Graham Whitehead" wrote:
> >
> > > Hi,
> > >
> > > I have a number of charts that are control from a main data range in
> excel.
> > > I have some code to write these to a number of power point slide.
> However,
> > > occasionally I am getting the message:
> > >
> > > shape (unknown member): invalid request. to select a shapem its view
> must
> > > be active
> > >
> > > My code sets the charts in a loop and then calls the same module to
> control
> > > the copying - which is
> > >
> > > 'Find the open powerpoint template and make it visible
> > > Set ppApp = GetObject(, "PowerPoint.Application")
> > > ppApp.Visible = True
> > > 'goto the relevant slide in the presentation
> > > Set ppSlide = ppApp.ActivePresentation.Slides(intSlideCount)
> > > ppApp.ActivePresentation.Slides(intSlideCount).Select
> > > ppSlide.Select
> > > 'paste the chart
> > > ppSlide.Shapes.Paste.Select
> > > intSlideCount = intSlideCount + 1 'increase the slide count variable
> > >
> > > It is the line ppSlide.Shapes.Paste.Select that is highlighed when debug
> is
> > > selected. I cant understand this because it falls over on different
> slides.
> > >
> > > Any help anyone could offer me would be gratefully received.
> > >
> > > Many thank
> > >
> > >
> > >
>
>
>
Similar Threads
