TPE

https://bayanbox.ir/view/263405954590585756/2mobile.png

Tavvafi@gmail.com


≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

هنگامی که لینکی را به Shapeی در اسلایدی اضافه می کنید، و فایل پرزنتیشن را به PDF تبدیل می کنید، ممکن است لینک ها  در کل درست کار نکنند، کد زیر این مشکل را تا حدود بسیار زیادی حل می کند.

پس از اجرای کد زیر می توانید فایل را به فرمت PDF ذخیره (... Save as) کنید.

Sub FixForAcrobat()
On Error GoTo ErrorHandler Dim oSl As Slide Dim oHl As Hyperlink Dim sSlideID As String Dim sSlideIndex As String Dim sSlideTitle As String Dim sTemp As String For Each oSl In ActivePresentation.Slides For Each oHl In oSl.Hyperlinks With oHl If .Address = "" Then ' it's a link to another slide in this pres ' verify that the slide number and ID of the link target match ' parse out slide number and slideID sSlideID = Mid$(.SubAddress, 1, InStr(.SubAddress, ",") - 1) sTemp = Mid$(.SubAddress, InStr(.SubAddress, sSlideID) + Len(sSlideID) + 1) sSlideIndex = Mid$(sTemp, 1, InStr(sTemp, ",") - 1) sSlideTitle = Mid$(sTemp, InStr(sTemp, ",") + 1) ' If the linked slide isn't present, we get an error so test first: On Error Resume Next If ActivePresentation.Slides.FindBySlideID(CLng(sSlideID)) Is Nothing Then MsgBox "Link to missing slide on slide: " & CStr(oSl.SlideIndex) _ & vbCrLf _ & "Link points to: " & .SubAddress ' stop processing this hyperlink Exit For End If On Error GoTo ErrorHandler If ActivePresentation.Slides.FindBySlideID(CLng(sSlideID)).SlideIndex <> sSlideIndex Then ' the link will confuse Acrobat so fix it Debug.Print "Originally:" & vbTab & .SubAddress On Error Resume Next sTemp = sSlideID & "," _ & ActivePresentation.Slides.FindBySlideID(CLng(sSlideID)).SlideIndex & "," _ & sSlideTitle ' If target slide not present, don't reset link If Err.Number = 0 Then .SubAddress = sTemp End If Debug.Print "Now:" & vbTab & sTemp End If End If End With Next Next NormalExit: Exit Sub ErrorHandler: MsgBox "Error:" & vbCrLf & Err.Number & vbTab & Err.Description Resume NormalExit End Sub

آدرس وب‌سایت‌های طراحی شده:
scol

پروژه‌های منتشر شده برای عموم (Published):

نمایش و چاپ فارسی DOS

نمایش، ویرایش و چاپ متون فارسی تحت DOS در ویندوز

تبدیل متون Windows به DOS

تبدیل متن فارسی داس به ویندوز اکسلTXLSx

نرم افزار ویرایش DSKKAR00 و DSKWOR00 لیست بیمه

حذف کاراکتر های جدولی از گزارش های تحت DOS

تبدیل متن و جداول گزارش های تحت DOS به Excel

چاپ فرم های ارزشیابی 100 امتیازی کارمندان

حضور و غیاب و موارد انضباطی (ماهناز)

کارنامه ماهانه توصیفی (ماهتوس)

کارنامه ماهانه(ماهکار2)

حفاظت از برنامه نویسی در DOS تحت Windows با قفل‌گذاری روی Flash USB

حفاظت از پروژه‌های Autoplay Media Studio

حفاظت از پروژه‌های SetupFactory

حفاظت از پروژه‌های Multimedia Builder

حفاظت از فیلم ها

حفاظت از فایل‌های PDF ، بر اساس صدور کد فعالسازی برای هر فایل بر اساس شماره سریال سخت افزاری هر رایانه

تولید فایل‌های EXE از فایل های PDF بدون امکان چاپ و ذخیره PDF to EXE (pdf2exe)

حفاظت از فایل های پاورپوینت

حفاظت از کدهاي برنامه نويسي شده در محيط VBA-Access

تغيير تصوير بک گراند صفحه ورود به Windows 7

بروزآوري آيکن هاي ويندوز Refresh Desktop Icons

فلوچارت و الگوریتم Flowgorithm

تکنیک‌های ماکرونویسی در Powerpoint

نرم افزار نمایش محتوای فایل vcf به خصوص فایل های vcf موبایل

تغییر وضوح اسلاید پاورپوینت در استخراج با فرمت تصویر PNG و JPG

ماشین حساب جبری

ماشین حساب گرافیکی

ماشین حساب هندسی

سامانه نمایش آنلاین کارنامه

دانلود کد PHP نمایش آنلاین کارنامه های PDF

مرجع دانلود فایل‌های CorelDraw

قفل کردن Google Chrome (chromeblocker)

نرم‌افزار تبدیل فایل‌های WEBP به PNG تنها با یک راست کلیک


tavvafi@gmail.com

SMS Panel smspanel


ارتباط با ما در شبکه‌های اجتماعی داخلی:

scrolltop
scrolltop