كانورت كردن داخل پاوريونت

[hoaz]

دوستان عزيز كسي ميتونه يه كدي بنويسه كه وقتي در يك ورك بوك اكسل هستيم و اون شيتهايي رو كه انتخاب كرديم
اطلاعات داخل اون شيتها رو به فايل پاورت پويت كپي كنه
تا كه مجبور به كپي كردن نباشيم:huh:

[runmohsen]

اين كد رو امتحان كن

Sub pptAsText()
Dim pApp As Object, pPres As Object
Dim pSlide As Object, pTxt As Object
Set pApp = CreateObject("powerpoint.Application")
pApp.Visible = True: Set pPres = pApp.Presentations.Add
pPres.PageSetup.SlideOrientation = _
IIf(ActiveDocument.PageSetup.Orientation = wdOrientPortrait, 2, 1)
ActiveDocument.Words(1).Select
For i = 1 To Selection.Information(wdNumberOfPagesInDocument)
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
Selection.GoTo What:=wdGoToBookmark, Name:="\page": Selection.Copy
Set pSlide = pPres.Slides.Add(pPres.Slides.Count + 1, 2)
Set pTxt = pSlide.Shapes(2)
pTxt.TextFrame.TextRange.ParagraphFormat.Bullet.Vi sible = False
pTxt.TextFrame.TextRange.Paste: pTxt.TextFrame.TextRange.Font.Size = 12
Next i
End Sub [hr]