Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Diagramme mit Macro platzieren

Mitglied: juri61

juri61 (Level 1) - Jetzt verbinden

03.01.2007, aktualisiert 05.01.2007, 7549 Aufrufe, 6 Kommentare

Hi,

erstmal ein Frohes Neues Jahr an alle.

Zur Frage:
Ich möchte Diagramme in Excel über ein Macro erstellen und platzieren. Das Erstellen klappt inzwischen gut, das platzieren leider überhaupt nicht. Alle Versuche ein entsprechendes Makro aufzunehmen und den Code dann entsprechend anzupassen, haben nicht geholfen.

Hat jemand eine Idee und/oder ein funktionierendes Stück Code?

Danke.
Juryk
Mitglied: bastla
03.01.2007 um 11:16 Uhr
Hallo juri61!

Das könnte etwa so gehen:
01.
With ActiveSheet 
02.
    .ChartObjects(1).Left = .Columns("D").Left 
03.
    .ChartObjects(1).Top = .Rows(8).Top 
04.
End With
Grüße
bastla
Bitte warten ..
Mitglied: juri61
04.01.2007 um 18:25 Uhr
Hallo Bastla,

danke schon mal für die Hilfe, leider ist das noch nicht ganz des Pudels Kern. Mein fertiges Makro soll etwa so aussehen:

01.
 For leg = 0 To numLegs 
02.
 
03.
        Charts.Add 
04.
        With ActiveChart 
05.
            .Name = plname 
06.
            .ChartType = xlXYScatterLinesNoMarkers 
07.
             .SetSourceData Source:= _ 
08.
                Worksheets(wsindex).Range(dataLeft, dataRight), _ 
09.
                PlotBy:=xlColumns 
10.
            .Location Where:=xlLocationAsObject, Name:="Plots" 
11.
        End With 
12.
 
13.
       chartID = ActiveChart.Index 
14.
                 
15.
        With ActiveSheet 
16.
            .ChartObjects(chartID).Left = .Columns("D").Left 
17.
            .ChartObjects(chartID).Top = .Rows(8).Top 
18.
        End With 
19.
 
20.
End For
Das heißt, ich erzeuge die Plots in einer Schleife und will den nächsten Plot immer neben/unter dem vorhergehenden erzeugen.
Wie komme ich an die Nummer des Charts, mit der ich den entsprechenden Plot als ChartObject ansprechen kann. Meine Variable chartID, so wie ich sie verwendet habe, funktioniert nicht. Wo stehe ich auf dem Schlauch?

Danke und Gruß
Juryk
Bitte warten ..
Mitglied: bastla
04.01.2007 um 20:48 Uhr
Hallo juri61!

Du könntest einfach die Count-Eigenschaft der ChartObjects-Auflistung verwenden (da Du ja das zuletzt hinzugefügte Diagramm platzieren willst):
01.
With ActiveSheet 
02.
    .ChartObjects(.ChartObjects.Count).Left = .Columns("D").Left 
03.
    .ChartObjects(.ChartObjects.Count).Top = .Rows(8).Top 
04.
End With
Alternativ dazu gäbe es noch eine ChartObjects.Add-Methode, der Du die Position mitgeben kannst (siehe Hilfe zur ChartObjects -Auflistung) - habe ich aber noch nicht ausprobiert.

Grüße
bastla
Bitte warten ..
Mitglied: juri61
05.01.2007 um 08:50 Uhr
Hi Bastla,

01.
With ActiveSheet 
02.
     .ChartObjects(.ChartObjects.Count).Left= .Columns("D").Left 
03.
     .ChartObjects(.ChartObjects.Count).Top =.Rows(8).Top 
04.
 End With 
05.
 


Gibt bei mir leider nur Typen unverträglich.? Hast du da noch eine Idee?

Mit ChartObjects.Add bin ich gerade am experimentieren. Hat aber noch keinen Erfolg.

Gruß
Juryk
Bitte warten ..
Mitglied: bastla
05.01.2007 um 09:03 Uhr
Hallo juri61!

Stell versuchsweise vor diese 4 Zeilen ein
01.
ActiveWindow.Visible = False
Grüße
bastla
Bitte warten ..
Mitglied: juri61
05.01.2007 um 09:57 Uhr
Hi Bastla,

danke für den Tip. Muss ich bei Gelegenheit auch mal testen.

Habe mich fur die ChartObjecs.Add Methode entschieden. Das sieht dann ungefähr so aus:
01.
 Set plt = Sheets("Plots").ChartObjects.Add(pLeft, pTop + leg * pOff, pWidth, pHeight) 
02.
         
03.
        pltID = plt.Index 
04.
        Sheets("Plots").ChartObjects(pltID).Activate 
05.
             
06.
        With ActiveChart 
07.
            .ChartType = xlXYScatterLinesNoMarkers 
08.
            .SetSourceData Source:= _ 
09.
                Worksheets(wsindex).Range(dataLeft, dataRight), _ 
10.
                PlotBy:=xlColumns 
11.
            .Location Where:=xlLocationAsObject, Name:="Plots" 
12.
        End With
Danke und Gruß
Juryk
Bitte warten ..
Ähnliche Inhalte
Router & Routing
VPN Server - Wo am besten platzieren
gelöst Frage von SickOneRouter & Routing16 Kommentare

Guten Abend zusammen, ich möchte gerne von Unterwegs auf einzelne Hosts in meinem Heimnetzwerk zugreifen. Nun ist die Frage ...

CSS
Div boxen nebeneinander platzieren
Frage von deinernstjetztCSS5 Kommentare

Hallo, ich schreibe an einer Website, die aus Überschrift, Seitenverzeichniss und Text besteht. Im Seitenverzeichniss(div box 1) stehen Buttons ...

Windows Tools
Excel Macro
Frage von bob1986Windows Tools3 Kommentare

Hallo allemal Kann mir jemand hiermit helfen mit einer formale oder VBA Ich probiere es mal zu erklären ich ...

VB for Applications
EXCEL Macro oder ähnliches gesucht
gelöst Frage von reissaus73VB for Applications3 Kommentare

Wer kann mir zu folgender Frage Hilfe geben. Ich suche eine Variante mit welcher sich die verbrauchte Zeit in ...

Neue Wissensbeiträge
Peripheriegeräte
Unterschrank für HP Drucker
Tipp von NixVerstehen vor 23 StundenPeripheriegeräte1 Kommentar

Als kurzen Freitags-Tipp möchte ich gerne meinen neuen Drucker-Unterschrank Modell Amica KS 15423W vorstellen. Das Gerät eignet sich hervorragend ...

Windows 10
Windows 10 - Probleme mit Point-And-Print
Tipp von emeriks vor 2 TagenWindows 103 Kommentare

Hi, wir kämpfen z.Z. mit einigen Druckertreibern, welche unter Win10 beim Verbinden eines Druckers von Printserver mit dem Dialog ...

Windows 10

Windows 10 1803 - Ihr Roamingbenutzerprofil wurde nicht vollständig synchronisiert

Anleitung von Deepsys vor 2 TagenWindows 101 Kommentar

Bei allen Windows 10 1803 PCs traten Probleme mit den Servergespeicherten Profilen auf. Das Abmelden dauerte sehr lange und ...

Exchange Server
Exchange - Fehler mit 2018-07 Sicherheitsupdate
Tipp von ArnoNymous vor 4 TagenExchange Server7 Kommentare

Hallo, es gibt mal wieder Freude mit den MS-Updates. KB4338814 führt dazu, dass der Exchange keine Mails mehr zustellt. ...

Heiß diskutierte Inhalte
Humor (lol)
Freitagsfrage: Was tun, wenn der Admin der DAU ist?
gelöst Frage von VoiperHumor (lol)32 Kommentare

Moin Zusammen, Eine nicht ganz ernst gemeinte Frage an die Außendienstler unter uns. Zusammenfassung: Ein Inhouse Admin ruft bei ...

Windows Netzwerk
LTE Modul - Kein Internet trotz Verbindung
Frage von killtecWindows Netzwerk19 Kommentare

Hallo, ich habe hier ein Dell 7390 2-in-1 mit W10 Pro wo ich nachträglich eine LTE-Karte (Original Dell DW5811e ...

LAN, WAN, Wireless
HP Probook 470 G4 - abbrechende Downloads
Frage von joern1LAN, WAN, Wireless18 Kommentare

Folgendes Problem, für einen Tipp wäre ich dankbar: Bei WLAN-Verbindung zum Internet (nicht LAN) kommt es bei etwas größeren ...

Peripheriegeräte
Guter "Router" für simples NAT gesucht
gelöst Frage von fisi-pjmPeripheriegeräte13 Kommentare

Hi, ich bin derzeit auf der Suche nach einem kleinen Gerät, welches ich vor eine Firewall klemmen kann, welches ...