Jeśli chcesz wyodrębnić określone slajdy z pliku PowerPoint prezentację do osobnej nowej prezentacji i załącz ją do wiadomości e-mail programu Outlook, możesz skorzystać ze sposobu udostępnionego w tym artykule.
Zamiast dołączać całość PowerPoint prezentacji do wiadomości e-mail, jeśli chcesz załączyć określone slajdy prezentacji, generalnie musisz najpierw skopiować określone slajdy do nowej prezentacji. To jest zbyt kłopotliwe. Dlatego tutaj pokażemy Ci metodę, która może zrealizować to za jednym razem.
Dołącz określone slajdy pliku PowerPoint Prezentacja na e-mail
- Po pierwsze, otwórz konkretny plik PowerPoint prezentacja.
- Następnie w PowerPoint okno aplikacji, naciśnij klawisze „Alt + F11”, aby uzyskać dostęp do edytora VBA.
- Następnie w nowym oknie utwórz nowy moduł, naciskając „Wstaw”> „Moduł”.
- Następnie skopiuj i wklej następujący kod VBA do tego modułu.
Sub AttachSpecificSlidesToOutlookEmail()
Dim objActivePresetation As Presentation
Dim objSlide As Slide
Dim n As Long
Dim strName As String
Dim strTempPresetation As String
Dim objTempPresetation As Presentation
Dim objOutlookApp As Object
Dim objMail As Object
Set objActivePresetation = ActivePresentation
For Each objSlide In objActivePresetation.Slides
objSlide.Tags.Delete ("Selected")
Next
'Add a tag "Selected" to the selected slides
For n = 1 To ActiveWindow.Selection.SlideRange.Count
ActiveWindow.Selection.SlideRange(n).Tags.Add "Selected", "YES"
Next n
strName = objActivePresetation.Name
strName = Left(strName, InStrRev(strName, ".") - 1)
strTempPresetation = Environ("TEMP") & "\" & strName & ".pptx"
'Copy the active presentation to a temp presentation
objActivePresetation.SaveCopyAs strTempPresetation
Set objTempPresetation = Presentations.Open(strTempPresetation)
'Remove the untagged slides
For n = objTempPresetation.Slides.Count To 1 Step -1
If objTempPresetation.Slides(n).Tags("Selected") <> "YES" Then
objTempPresetation.Slides(n).Delete
End If
Next n
objTempPresetation.Save
objTempPresetation.Close
'Attach the temp presentation to a new email
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
'Change the email details as per your needs
With objMail
.To = "test@datanumen.com"
.Subject = strName
.Body = "Dear," & vbCr & vbCr & vbTab & "Specific slides are extracted and attached."
.Attachments.Add strTempPresetation
.Display
End With
End Sub
- Następnie możesz zamknąć bieżące okno.
- Później przejdź do „Plik”> „Opcje”> „Pasek narzędzi szybkiego dostępu”, aby dodać nowe makro do paska narzędzi szybkiego dostępu.
- Wreszcie możesz wypróbować to makro.
- Na początek wybierz konkretne slajdy, które chcesz wyodrębnić.
- Następnie kliknij przycisk makra na pasku narzędzi Szybki dostęp.
- Od razu pojawi się wiadomość e-mail programu Outlook, w której znajduje się plik PowerPoint prezentacja wyodrębniona z prezentacji źródłowej.
Skorzystaj ze skutecznego narzędzia do odzyskiwania
Jak wszyscy wiemy, Outlook jest wyposażony we wbudowane narzędzie do naprawy - skanpst. Jednak może po prostu poradzić sobie z drobnymi usterkami w Outlooku. Jeśli to, z czym się konfrontujesz, jest poważną szkodą, nie przyniesie to efektów. W tym momencie nie masz innego wyjścia, jak tylko wrócić do innego potężnego i niezawodnego narzędzia naprawczego, takiego jak DataNumen Outlook Repair. Dzięki niemu będziesz w stanie uratować uszkodzony plik Outlooka.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com