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

kopierte Grafik mit Positionsangabe einfügen

Forumthread: kopierte Grafik mit Positionsangabe einfügen

kopierte Grafik mit Positionsangabe einfügen
11.09.2024 09:18:34
Udo
Guten Morgen,

ich habe mittels VBA aus Tabellen Zeichnungen incl. Bemaßungen erstellt. Dabei geht es um z.B. eine Grube + einem Graben + einer Grube für einen Mast, alles einzeln auf jeweils einem Tabellenblatt berechnet und gezeichnet.

Nun möchte ich gern diese drei (oder auch mehrere) Grafiken miteinander kombinieren. Ich beginne jede einzelne Grafik an Position von Oben 200, von links 200, möchte auch den Einfügepunkt der ersten Grafik auf von Oben 200, von links 200 setzen, die anschließende Grafik würde dann in gleich Höhe aber von links bei von links 200+Grafikbreite eingefügt werden müssen usw.

Ich habe es geschafft die einzelnen Grafiken zu programmieren, auch kann ich nun die einzelnen Grafiken alle Details makieren und kopieren, aber wie ich das dann im neuen Blatt einfüge, vor allen Dingen mit der berechneten Einfügeposition, das finde ich in der vba-Hilfe nichts.

Gibt es hier jemand, der mir sagen kann, wie ich das kopierte an eine von Oben/von Links Position wieder einfügen kann ?
Vielen Dank Udo
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopierte Grafik mit Positionsangabe einfügen
11.09.2024 10:31:18
volti
Hallo Udo,

vielleicht hilft dieser Beitrag Dir schon weiter...
https://www.herber.de/forum/cgi-bin/callthread.pl?index=1932369#9

Oder diese Idee.... 
Sub PositioniereLetzteGrafik()

' Zuletzt eingefügte Grafik positionieren

  With ActiveSheet

     With .Shapes(.Shapes.Count)

        .Left = 150

        .Top = 100

     End With

  End With

End Sub


Gruß
Karl-Heinz
Anzeige
AW: kopierte Grafik mit Positionsangabe einfügen
11.09.2024 15:33:14
Beverly
Hi Udo,

ich nehme an, es gibt nur 2 Grafiken (Shapes) im Tabellenblatt? 

Sub KopierenPositionieren()

    Dim intZaehler As Integer

    Dim arrBreite()

    ReDim arrBreite(0 To 2)

    Dim dblLinks As Double

    Application.ScreenUpdating = False

    With Worksheets("Tabelle1") '== Name Quelltabelle anpassen

        For intZaehler = 1 To 3

            .Shapes(intZaehler).Copy

            Worksheets("Tabelle2").Paste

            arrBreite(intZaehler - 1) = .Shapes(intZaehler).Width

        Next intZaehler

    End With

    With Worksheets("Tabelle2") '== Name Zieltanelle anpassen

        With Worksheets("Tabelle2").Shapes(1)

            .Top = 200

            .Left = 200

            dblLinks = 200

        End With

        With .Shapes(2)

            .Top = 200

            .Left = 200 + arrBreite(0)

        End With

        With .Shapes(3)

            .Top = 200

            .Left = 200 + arrBreite(0) + arrBreite(1)

        End With

    End With

    Application.ScreenUpdating = True

End Sub


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: kopierte Grafik mit Positionsangabe einfügen
12.09.2024 07:53:41
Udo
um das noch einmal klar zustellen, es gibt bis zu 8 Tabellenblätter, auf jedem Tabellenblatt gibt es eine Grafik, eine solche Grafik besteht aus bis zu 100 einzelnen (laut Excel Menueleiste) Formen (Rechtecke, Kreise, Texte und Maßfeile). Der Maßstab auf allen Tabellenblättern ist immer gleich. Wie bereits erwähnt geht es um Erdarbeiten zur Straßenbeleuchtung, es gibt immer einen Anschlußpunkt, einen Graben und eine neu errichtete Beleuchtungseinrichtung. Dementsprechend gibt es eine Grafik Anschlußpunkt, eine Grafik Graben und eine Beleuchtungseinrichtung. Es können aber auch mehr Gräben und Beleuchtungspunkte vorhanden sein.
Diese Kombis (Anschlußpunkt-Graben-Beleuchtungseinrichtung) sollen nun auf einer Grafik(Zeichnung) dargestellt werden. Da die Einzelelemente jeder Zeichnung mit der Tabelle berechnet wurden und immer bei >vonObenvonLinks> 200/200 begonnen wurde, ergeben sich für folgende Zeichnungen die Einfügepunkte aus 200/200 plus der Elementgröße.
Ich habe inzwischen heraus gefunden wie pro Zeichnung/Tabellenblatt die Einzelelemente markiere und kopiere, nur wie ich das dann in ein anderes Tabellenblatt mit definierter Einfügeposition einfügen kann, dazu habe ich noch nichts gefunden.
Im übrigen gehe ich davon aus, das mehrere Elemente beginnend bei 200/200 und durch Addition der Breiten positioniert, Beispiel Start 200/200 plus Breite 175, Start nächstes Element 200+175+1=376/200 usw. gleiches für Höhenposition NACH DEM KOPIEREN als Einfügepunkt den Ursprünglichen Start von 200/200 als LinksOben übernehmen, ich meine jetzt nicht die Position 200/200, sonderen das Zeichnungselement das an das dieser Position steht. Boh, das ist schwer zu beschreiben, ich versuch mal so: a/a bneidirjged, a/d gfggggfe, a/e irfdkeoeo wenn das nun kopiert wird, gehe ich davon aus das der Anfasspunkt der Kopie von a/a übernommen wird. Hieße, die nächste Zeichnung/Grafik muss bei a/o eingefügt werden
Hier kommen leider Zeichnen und Programmieren zusammen, hoffentlich versteht jemand, was ich überhaupt will, Danke
Anzeige
AW: kopierte Grafik mit Positionsangabe einfügen
12.09.2024 08:31:17
Beverly
Wie du die Positionen der 3 Elemente (Shapes) ermittelst sieht du doch in meinem Code: für das 1. Shape ist es .Shapes(1).Left = 200 und für die anderen jeweils die Breite - also .Shapes(x).Width - des/der vorhergehenden Shapes dazu addiert.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: kopierte Grafik mit Positionsangabe einfügen
11.09.2024 11:01:47
Udo
Ich hatte zuvor eingefügt mit Angabe der Zelle B2, nach Deinem Beitrag habe ich mich auf Paste beschränkt und danach Dein Listing eingefügt.
Obwohl noch jedes Element markiert war, wurde nur ein Element an die Position verschoben, was ist mit dem Resr ?
AW: kopierte Grafik mit Positionsangabe einfügen
11.09.2024 12:57:19
volti
Hallo Udo,

ich hatte verstanden "beim Einfügen" oder nach dem Einfügen das Element positionieren.
Mein Code positioniert nur die letzte eingefügte Grafik.

Wenn Du alle Grafiken positionieren möchtest kannst Du das in einer Schleife machen. Wenn jedes auf eine andere Position kommen soll, kann man die Namen verwenden.
Ich lasse die mal in der ersten Sub ausgeben, da die englische Bezeichnung angegeben werden muss....

Wenn nur die markierten Objekte genommen werden sollen, da habe ich gerade keine Idee. 

Sub Test1()

  Dim oShp As Object

  

  For Each oShp In ActiveSheet.Shapes

     Debug.Print oShp.Name

     oShp.Left = 100

     oShp.Top = 100

  Next oShp

End Sub



Sub Test2()

  Dim oShp As Object

  

  For Each oShp In Selection

      With oShp

          Select Case .Name

          Case "Picture 6": .Left = 100: .Top = 100

          Case "Picture 7": .Left = 200: .Top = 100

          End Select

      End With

  Next oShp

End Sub


Gruß Karl-Heinz
Anzeige

Forumthreads zu verwandten Themen

Set Focus auf msoControlEdit?Position in SubMenü?
Andreas

Hallo Herber Fans,
ich habe ein Problem mit einer msoControlEdit (Textfeld). Ich habe mir in einen Commandbar ein Textfeld eingesetzt, aus dem ich auch den Wert auslesen kann. Wenn dieser Wert eine Zahl ist, ist alles in Ordnung. Aber ich möchte den Wert aus der Textbox auch über IF is num...
18.08.2008 15:46:00
Thread-ID: 1002640
9 Beiträge
Variable Zellposition ausfindig machen
Anett

Hallo zusammen,
ich habe Probleme bei der Generierung des VBA Codes für folgende Situation:
Ich habe eine Tabellenspalte mit 19 Zeilen (Bereich D8:D26). In eine dieser Zeilen der Tabellenspalte wird nur ein Wert eingetragen, jedoch nicht immer in der gleichen Zeile (dass heißt das eine...
18.08.2008 18:53:16
Thread-ID: 1002723
7 Beiträge
Bestimmen von Zellpositionen und -inhalten
Zellpositionen

Guten Abend
Ich habe ein paar Fragen im Zusammenhang mit der Bestimmung des ersten Eintrages in einer Spalte resp. Zelle.
Wenn in Spalte A in Zeile 20 der erste Texteintrag enhalten ist, kann ich die Position wie folgt bestimmen:
=VERGLEICH("*";A:A;0)
Denn Texteintrag kann ich w...
03.09.2008 22:29:00
Thread-ID: 1007246
8 Beiträge
Text in Textbox an Cursorposition einfügen
Peter

Hallo zusammen,
ein Problem mit einer Textbox beschäftigt mich nun schon eine ganze Zeit. Vielleicht habt Ihr ja eine Idee zur Lösung ...
Ich schreibe eine Anwendung mit einer Userform. Auf der Userform ist eine Listbox und eine Textbox. Per Doppelklick auf einen Eintrag in der Listbox...
26.11.2008 15:45:07
Thread-ID: 1028071
3 Beiträge
Grafiken in Excel positionieren
Marcus

Hallo,
habe folgende Frage und Bitte:
'Bezeichnung der Bilder in Tabelle suchen 'und Bild kopieren For Each Zelle In Tabelle.UsedRange Bezeichnung = Zelle.Text If Dic.Exists(Bezeichnung) Then Dic(Bezeichnung).Copy Tabelle.Paste Set Sh = Tabelle.Shapes(Tabelle.Shapes.Count) Sh.Top = Ze...
13.05.2009 06:52:12
Thread-ID: 1074692
4 Beiträge
Grafik einfügen und Position bestimmen
Frank68

Hallo Freunde,
zunächst mein Beileid für alle, die wie ich bei diesem Wetter arbeiten müssen.
Nun zu meiner Frage: Ich möchte in einem Excelblatt per Makro jpg.-Grafiken einfügen. Die Grafik soll etwa ein A4-Blatt im Querformat einnehmen; das Excelblatt nutze ich, um eine Legende unter...
16.08.2009 11:21:23
Thread-ID: 1096218
8 Beiträge
Fenster ab eine Bestimmte Spalte positionieren
Nibio

Hallo Profis,
wie lautet Makro Befehl um das Fenster ab Splate X sichtbar zu machen nach Makro ausführung?
Ich habe versucht mit Range("x1").Select versucht aber funktioniert nicht ,es wird damit nur x1 markiert,
aber das Fenster ist nicht mit X als Anfang positioniert.
Vielen...
18.08.2009 12:18:14
Thread-ID: 1096705
10 Beiträge
Relative Positionierung von Zelleninhalten
Zelleninhalten

Hallo,
folgendes: anhand einer Vorlage habe ich diesen Projektplan erstellt
[img]http://img2.pict.com/df/de/61/1592724/0/800/ganttchart.png[/img]
Die Farben entsprechen Ressourcen und Engpässe im Betrieb können auf diese Weise
schneller erkannt werden.
Der Zeitstrahl in Zei...
09.09.2009 12:34:30
Thread-ID: 1101511
7 Beiträge
Aus Tabelle4 in Tab1 ZeilenPosition finden
Franz

Hallo Excelisten,
Was muss ich hier ändern um den Zeilenwert zu erfahren? Sub Suche_NEW() Dim Zeilenwert As Integer Zeilenwert= iRowValueItem("29437436", 1) MsgBox (Zeilenwert) End Sub
Function iRowValueItem_NEW(sWhat As String, iCol As Integer) As Integer
Dim rng As Range
If...
23.10.2009 21:47:13
Thread-ID: 1111734
3 Beiträge
Pixel Position in einem Diagramm
Andreas

Hallo,
kann mir jemand erklären, wie man die X/Y Position eines Punktes in einem Diagramm rausfinden kann.
also soetwas wie
Sheets("Daten").ChartObjects("Diagramm 1").Chart.SeriesCollection(1).Points(10).X
es hat den hintergrund dass dieses diagramm als Bild in eine Userform lad...
02.01.2010 16:32:28
Thread-ID: 1126734
11 Beiträge
Anzeige
Grafikposition in Diagramm
Matthias

Hallo,
ich importiere ein Logo in ein Diagramm. Nun möchte ich, dass das Logo oben rechts in der Ecke positioniert wird. Wie kann ich das erreichen ?
Vielen Dank.
Matthias
22.01.2010 18:02:12
Thread-ID: 1132145
2 Beiträge
Anzeige
Makro: Cursor unterhalb v. Eingaben positionieren
tuska

Hallo,
ich habe mir mit dem Macrorecorder folgendes Makro aufgezeichnet Sub auto_open() Sheets("Tabelle1").Select Range("A2").Select Selection.End(xlDown).Select Range("A5").Select End Sub
Die Spalte A ist als Datum formatiert. In Zellen A2:A4 wurde jeweils das Datum 06.07.2010 eingeg...
06.07.2010 23:13:38
Thread-ID: 1165836
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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