Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe, Graphik einfügen u. Formatieren

Hilfe, Graphik einfügen u. Formatieren
02.06.2003 16:50:52
Willibald
Hallo,
ich möchte automatisch WMF Gtraphiken aus Autocat (ca. 800 Stück)
automatisch in Excel 97 einfügen und jeweils auf ein bestimmtes
Format (Zellengrösse) setzten können.
Sollte dies zu schwierig sein, wäre ich beim Einfügen der einzelnen Graphiken in Excel mit einer automatischen Formatierung
und einer händischen jedoch automatischen Positionierung einverstanden .
Besten Dank für Eure Hilfe !

Gruß Willibald


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Hilfe, Graphik einfügen u. Formatieren
02.06.2003 17:04:26
andre

hallo willibald,
wenn die grafiken gleich groß sind kannst du es am einfachsten lösen - hier mal ein aufgezeichneter code:

Sub Makro3()
'
' Makro3 Makro
' Makro am 02.06.2003 von wanderer aufgezeichnet
'
    ActiveSheet.Pictures.Insert( _
        "C:\Dokumente und Einstellungen\SchauAn\Eigene Dateien\Eigene Bilder\fallersl.jpg" _
        ).Select
    Selection.ShapeRange.ScaleHeight 0.05, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleWidth 0.05, msoFalse, msoScaleFromTopLeft
    Range("D6").Select
End Sub
 
     Code eingefügt mit Syntaxhighlighter 1.16


den factor nach scalewith und scaleheight musst du deinen bedürfnissen anpassen.
am anfang noch die zelle activieren, wo die grafik hin soll.
[a35].Activate bzw. range("a35").activate
gruss andre

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige