|
| |
Allgemeine Diskussionen| Re: per code aus excel in Poweroint/msgraph Diagramme erzeugen | |  | | Autor: MrByte | | Datum: 18.10.02 12:41 |
| Hallo Sebastian,
nicht jedes TextFrame enthält auch Text, Typ 17 ist ein Texteffekt, da kannst DU kein Text eingeben.
DIe Ausrichtung und andere Eigenschaften ändern sich bei mir nicht, ich arbeite allerdings nicht mit Makros, sondern mit VB. Mein Code:
If .HasTextFrame = msoTrue Then
If .TextFrame.HasText = True Then .TextFrame.TextRange.Text = .Name
End If
Habe ich das richtig verstanden, Du möchtest die Textframes umbenennen? AUch das klappt bei mir, allerdings folgender Hinweis: Wenn DU den Text änders und er wird lännger, als das Textframe, dann mußt Du das Textframe redimensionieren: mit TextFrame.autosize =ppAutoSizeShapeToFitText geschieht das zwar automatisch, aber Powerpoint kümmert sich wenig darum, daß der Text jetzt über der Graphik liegt  :
Daher vermutlich Deine Probleme mit der Ausrichtung.
Mit .TextFrame.MarginLeft.TextFrame.MarginLeft kannst Du den Abstand zum linken Rand der Folie verändern, die Einheit ist Pixel. Das Problem ist nur: Wie stellst Du die Breite des Textes fest, da sehe ich momentan keine Möglichkeit. Du könntest Dir höchstens die alte Breite des Textfeldes merken und aus der Differenz zur neuen Länge entsprechende Rückschlüße ziehen.
Hier vielleicht der Hinweis oder die Fragestellung: Möchtest DU im Dokument jedesmal neue Folien erstellen mit völlig neuem Aussehen oder geht es letztendlich nur um die Aktualisierung bestehender Daten? Dann ist es besser, eine Vorlage zu nehmen, dann hat man nicht so viele neue Schwierigkeiten.
Was die Sichtbarkeit von Folien betrifft, interessiert mich das in VB natürlich nicht, Du kannst aber was mit prspres.SlideShowWindow machen, ANwendungsbeispiele findest Du hier: Das sind Ereignisse auf Befehlsschaltflächen, die Du in der Folie hinzufügen kannst. Parent müßte dann die Präsentation sein.
Private Sub cmdBack_Click()
Me.Parent.SlideShowWindow.View.Previous
End Sub
Private Sub cmdForward_Click()
Me.Parent.SlideShowWindow.View.Next
End Sub
Noch ein letzer Hinweis: BeiGruppierungen kannst Du wie folgt vorgehen:
if .Type=msoGroup then .GroupItems(1).TextFrame.TextRange.Text....
auch das wieder nur ein Hinweis, kein fertiger Code.
Alles klar, wie Du jetzt vorgehen mußt?
NS | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Neu! sevDTA 3.0 Pro 
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
Re: Danke für das Unterstützungsangebot
Antwort: Re: per code aus excel in Poweroint/msgraph ...
Wieder einen Schritt weiter
Frage an MrByte-Fehlermeldung
Norbert, du bist ja voll der blicker! __ot
Frage an MrByte-Fehlermeldung
Danke für tolle Hilfe, Antwort auf deinen Abschnitt