Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1312to1316
1312to1316
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenübertrag erweitern...Hallo Franz (FCS)

Forumthread: Datenübertrag erweitern...Hallo Franz (FCS)

Datenübertrag erweitern...Hallo Franz (FCS)
11.05.2013 21:34:11
Lemmi
Tabelleninahlte in Power-Point übertragen III
Hallo Franz,
ich bin sehr zufrieden mit Deinem Makro!
In dem täglichen Gebrauch ist mir etwas aufgefallen, dass von mir noch nicht angedacht war und ich noch sher gerne ergänzt haben möchte.
Wie Du weißt sind Tabellen- Teile von A-P übertragen worden, soweit Sie in Q bis Z ein X bekommen hatten. Jede Zeile beinhaltete immer ein passendes Bild.
Damit wurde eine PP- Präsentation Seite gefüllt.
Der Übertrag hat immer tadellos funktioniert.! Danke noch mal!
Leider habe ich noch nicht die Überschrift übertragen!
Ich würde gerne noch eine "Kapieltüberschrift" in der selben Art und Weise wie Du den Tabellenteil (A-P) übertragen hast auch diese Übertragen.
Dazu habe ich mir folgendes ausgedacht.
zur Erinnerung!
Die Tabelle hat vom A6 folgende Struktur z. B.:
Spalte
A---B---C
01_000 Haus
01_001 Haus zwei
01_002 Haus XYZ
....
02_000 Maus vom Nachbarn
02_001 Maus zwei vom Nachbarn
02_002 Maus XYZ
Nun habe ich mir überlegt das die 000 in Spalte B immer eine Überschrift "anzeigt"
Es soll diese Spalte auch von A-P übertragen werden.
Damit werden Pro PP- Seite zwei Zeilen und ein Bild übertragen.
Die Überschrift muss in jedem Abschnitt mehrfach übertragen werden.
Immer soviel wie es X (Q-Z) gibt.
Die Überschrfit soll über dem Bild angeordnet werden.
Neue Tabellenform:
01_000 Häuser ABC
01_001 Haus
01_002 Haus zwei
01_003 Haus XYZ
....
02_000 Haustiere ABC
02_001 Maus vom Nachbarn
02_002 Maus zwei vom Nachbarn
02_003 Maus XYZ
Könntest du nocheinmal Hand anlegen?
Gruß
Lemmi
zur Verdeutlichung habe ich Dir die Tabelle und die Struktur hochgeladen
https://www.herber.de/bbs/user/85288.xlsx

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenübertrag erweitern...Hallo Franz (FCS)
13.05.2013 08:16:43
fcs
Hallo Lemmi,
ich hab es jetzt so gelöst, dass immer, wenn beim Abarbeiten der Zeilen in Spalte B "000" erscheint, diese Zeile als neues Titel-Bild kopiert wird und auf den folgenden PP-Folien eingefügt wird
Gruß
Franz
Textdatei mit Code:
https://www.herber.de/bbs/user/85300.txt

Anzeige
AW: Datenübertrag erweitern...Hallo Franz (FCS)
13.05.2013 16:02:12
Lemmi
Hallo Franz,
es läuft! super!
Zwei allerletzte Fragen habe ich dennoch!
... Application.CentimetersToPoints(20)....
Hier kann ich die Breite manipulieren! Wo kann ich den die Höhe manipulieren?
Wenn dieser Teil übertragen wird, schleicht sich immer ein Rahmen mit ein.
In der PP- habe ich immer ein grauen Rahmen um diese Felder.
Beim übertragen der Bilder aus dem Verzeichnis habe keinen grauen Rahmen. Woher kommt dies?
Ich fändes es gut wenn dieser nicht dar ist.
Gruß
Lemmi

Anzeige
AW: Datenübertrag erweitern...Hallo Franz (FCS)
13.05.2013 19:17:24
fcs
Hallo Lemmi,
wenn du an der Höhe etwas ändern willst, dann musst du die Height-Eigenschaft des Shape-Objektes ändern.
Dabei muss du bedenken, dass sich die Breite bzw. Höhe proportional mit ändert, wenn die jeweils andere Eigenschaft geändert wird. Außer wenn du für das Shape-Objekt die Eigenschaft "LockAspectRatio"
auf 0 setzt - '0 = msoFalse. -1 = msoTrue
Wenn du um die kopierten Zellbereiche keine Rahmen haben möchtest, dann musst du Zeilen 
                  .Line.Visible = msoCTrue

löschen/zu Kommentar machen.
Gruß
Franz

Anzeige
AW: Datenübertrag erweitern...Hallo Franz (FCS)
13.05.2013 21:08:11
Lemmi
Hallo Franz,
das Erste habe ich verstanden und eingesetzt!
bei dem Zweiten scheiter ich !
With PP_Shape
0 = msoFalse. -1 = msoTrue
.LockAspectRatio = 0
.Height = 10 * a '10 cm hoch
...VAB meldet Syntax Fehler...
wenn ich es den ans Laufen bekommen würde, wo müste ich dann die gewünsche Höhe eingeben?
Gruß
Lemmi

Anzeige
AW: Datenübertrag erweitern...Hallo Franz (FCS)
13.05.2013 23:39:44
fcs
Hallo Lemmi,
wenn du die Große/Höhe des eingefügten Bildes Ändern willst, dann muss die Syntax ggf .wie folgt sein: 
               'Bild Größe anpassen
With PP_Shape
.LockAspectRatio = 0 '0 = msoFalse. -1 = msoTrue
.Height = 10 * a '10 cm hoch
End With

ist es so schwer zu verstehen, dass du den Wert 10 ändern muss, wenn du eine andere Höhe willst?
Bei Wert 0 für "LockAspectRatio" wird dann aber das Bild verzerrt, da die Breite des Bildes nicht proportional mit geändert wird.
Gruß
Franz

Anzeige
AW: Datenübertrag erweitern...Hallo Franz (FCS)
14.05.2013 09:43:18
Lemmi
Hallo Fanz,
ja , das hatte ich verstanden mit der höhe des Bildes! mein Fehler...war wohl zu spät gestern abend. Sorry!
Ich meinte eigentlich die "Kopf- und Fußzeile" ..und nicht das Bild!
Mein anliegen ist, das ich nicht Poportional die Höhe verändern möchte.
Breite wie unten mit 20cm klar.
Wenn ich nun die Höhe veränderen möchte z. B Faktor 1,5 oder...2,0 wie würde dies im folgenden Abschnitt aussehen.
Application.CentimetersToPoints(20) Then
.Width = Application.CentimetersToPoints(20)
Gruß
Lemmi
..ich bin nur ein VAB leihe, verstehe schonmal das ein oder andere deshalb stelle ich schon mal "überflüssige" Fragen.
Trotz dem bin ich von deiner Hilfe naoch wie vor begeistert.Danke Danke!

Anzeige
AW: Datenübertrag erweitern, Shapes anpassen
14.05.2013 11:08:29
fcs
Hallo Lemmi,
ob Bild oder Kopf-/Fusszeile.
Das Prinzip ist das gleiche.
Hier beispielhaft für das Grafik-Objekt mit der Titelzeile. 
                With xl_ShapeTitel
If .Width > Application.CentimetersToPoints(20) Then
.Width = Application.CentimetersToPoints(20)
.LockAspectRatio = 0 '0 = msoFalse. -1 = msoTrue
'                    .Height = 1.5 * .Height
.Height = Application.CentimetersToPoints(0.5)
End If
End With

Gruß
Franz

Anzeige
AW: Datenübertrag erweitern, Shapes anpassen
15.05.2013 19:15:10
Lemmi
Hallo Franz,
es sieht gut aus,bis auf das ich die Spaltenbreite an zwei rechnern unterschiedlich heraus bekommen.
Ich muss die Breite 20
Application.CentimetersToPoints(20) Then
.Width = Application.CentimetersToPoints(20)
auf 40 setzen und weis nicht was ich "anders" mache. Die Datei und die Vorlage gleich.
...ich habe schon mal festgestellt, das ein Butten sich immer wieder unterschiedlich groß an einen 24" Bildschrim und an einem 20 " Bildschrim darstellt. diese verändern sich immer wieder mit der Steuerelement größe warum auch immer.
Warum könnte ich diese Probleme haben?
Gruß
Lemmi

Anzeige
AW: Datenübertrag erweitern, Shapes anpassen
17.05.2013 14:57:42
fcs
Hallo Lemmi,
es kann sein, dass die eingestellte Bildschirmauflösung (in der Systemsteuerung) hier einen Einfluß hat.
Ich hab aber keine Ahnung, ob das so ist und wie man die Einstellung ermittelt, um ggf. einen entsprchenden Korrekturfaktor einzubauen.
Gruß
Franz
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige