پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

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

  1. #1


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

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

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

  2.  

  3. #2


    آخرین بازدید
    5 روز پیش
    تاریخ عضویت
    June_2010
    محل سکونت
    تهران
    نوشته ها
    121
    امتیاز
    12
    سپاس
    11
    سپاس شده
    1 در 1 پست

    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, ويژوال بيسيك

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

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