نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: كانورت كردن داخل پاوريونت

  1. #1


    آخرین بازدید
    2011/03/10
    تاریخ عضویت
    February 2011
    نوشته ها
    5
    امتیاز
    1
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

    دوستان عزيز كسي ميتونه يه كدي بنويسه كه وقتي در يك ورك بوك اكسل هستيم و اون شيتهايي رو كه انتخاب كرديم
    اطلاعات داخل اون شيتها رو به فايل پاورت پويت كپي كنه
    تا كه مجبور به كپي كردن نباشيم
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2019/08/08
    تاریخ عضویت
    June 2010
    محل سکونت
    تهران
    نوشته ها
    120
    امتیاز
    14
    سپاس
    11
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    runmohsen به Yahoo ارسال پیام

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

    [align=LEFT]اين كد رو امتحان كن
    کد:
    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.Visible = False 
    pTxt.TextFrame.TextRange.Paste: pTxt.TextFrame.TextRange.Font.Size = 12 
    Next i 
    End Sub
    [/align] [hr]


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد