Powertpoint VBA

Odpowiedz Nowy wątek
2019-08-08 13:25
0

Siemka,
mam takie pytanie moim celem jest w zaznaczonym tekście zmienić wartością wpisaną w forumularz w Powerpoint. Coś takiego robiłem w Wordzie za pomocą zakładek. Jednak moje pytanie brzmi czy w Powerpointcie jest coś działającego na zasadzie zakładki w Wordzie ? Lub coś podobnego dzieki czemu mógłbym osiągnąć swój cel ?

Pozostało 580 znaków

2019-08-08 13:26
0

Są slajdy, do których możesz się odwołać...

Pozostało 580 znaków

2019-08-08 13:35
0
Marcin.Miga napisał(a):

Są slajdy, do których możesz się odwołać...

Chodzi ci o polecenie Application.ActivePresentation.Slides(2) ?

Bo to wygląda tak jak na załączniku. Ze chce zmienić imię , nazwisko itd na te wpisane w formularzu.

Sorry, że zadaje może głupie pytania ale to mój pierwszy kontakt z programowanie w vba.

jak twój pierwszy kontakt z VBA, to sobie złe narzędzie wybrałeś... W PP nie ma nagrywania makr... - Marcin.Miga 2019-08-08 13:43

Pozostało 580 znaków

2019-08-08 13:48
0

Wiem, ale niestety muszę w tym programie ze wględu, że to program na zaliczenie.
Nie ma jakieś alternatywy w powerpoint aby to zrobić ?

Pozostało 580 znaków

2019-08-08 13:51
0

Zrób tak:

sub test
Dim s as Slide
Set s = ActivePresentation.Slides(3)

End sub

Potem krokowo wykonuj tę procedurę (F8). Jak dojdziesz do linii End Sub, to zaznacz sobie tę zmienną s i wciśnij SHIFT-F9 (podgląd zmiennych), albo uruchom okienko zmiennych lokalnych (View - Local Window). Rozwijaj gałęzie, aż znajdziesz interesujący cię tekst, który musisz zmodyfikować. To będzie gdzieś w okolicach...
Shapes->Item... -> TextFrame (lub TextFrame2) -> TextRange

Pozostało 580 znaków

2019-08-08 15:26
0
Marcin.Miga napisał(a):

Zrób tak:

sub test
Dim s as Slide
Set s = ActivePresentation.Slides(3)

End sub

Potem krokowo wykonuj tę procedurę (F8). Jak dojdziesz do linii End Sub, to zaznacz sobie tę zmienną s i wciśnij SHIFT-F9 (podgląd zmiennych), albo uruchom okienko zmiennych lokalnych (View - Local Window). Rozwijaj gałęzie, aż znajdziesz interesujący cię tekst, który musisz zmodyfikować. To będzie gdzieś w okolicach...
Shapes->Item... -> TextFrame (lub TextFrame2) -> TextRange

Dzięki wielki za pomoc. Znalazłem ten tekst. Mógłbym liczyć jeszcze na pomoc w jednej kwestii ? Mam tam taki tekst :
" : Text : "Kontakt:
Imię Nazwisko
Stanowisko
Tel. kom.:
email" : String"

Jak mogę zrobić żeby np zamiast tekstu Imię pojawiły się w tym miejscu dane z formularza ?
Moze cos takiego : ActivePresentation.Slides(69).Shapes.Item3.TextFrame.TextRange.text = "Kontakt: " +
dane_imie + " " + dane_nazwisko + " " + "Stanowisko: " + dane_stanowisko + " " + "Tel. kom: " + dane_tel + " " + "email: " + dane_email
?
Lub jest jakiś inny działający sposób ?

Pozostało 580 znaków

2019-08-08 16:16

Jak już to

ActivePresentation.Slides(69).Shapes(3).TextFrame.TextRange.text = "Kontakt: " & dane_imie & " " & dane_nazwisko & " " & "Stanowisko: " & dane_stanowisko & " " & "Tel. kom: " & dane_tel & " " & "email: " + dane_email

Ale lepiej by było, abyś dane fragmenty trzymał w odpowiednich Frame-ach. Np Imię i nazwisko w jednym. Wtedy nie musisz martwić się formatowaniem. Poukładaz je sobie jeden nad drugim i po sprawie...
EDIT: W kodzie zmieniłem Shapes.Item3 na Shapes(3) i + na &

edytowany 1x, ostatnio: Marcin.Miga, 2019-08-08 16:17

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0