Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
648to652
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Objekt in aktive Zelle einfügen

Objekt in aktive Zelle einfügen
12.08.2005 10:11:59
Klaus
Hallo zusammen
Ich habe um einen Kreis zu zeichnen folgenden Code mit dem Rekorder aufgezeichnet.
Range("A28").Select
ActiveSheet.Shapes.AddShape(msoShapeOval, 12.75, 372#, 19.5, 18.75).Select
Selection.ShapeRange.IncrementTop -3#
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Range("D27:F27").Select
Wenn ich den Code ausführe, wird der Kreis immer an der gleichen Stelle eingefügt. Ich möchte Ihn aber immer in die Aktive Zelle einfügen. Geht das?
Gruss Klaus

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

Betreff
Datum
Anwender
Anzeige
AW: Objekt in aktive Zelle einfügen
12.08.2005 10:28:48
Christoph
Hi Klaus,
so zB
Gruß
Christoph 
Option Explicit
Sub Kreis()
Dim sh As Shape
With Selection
Set sh = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, .Height, .Height)
End With
sh.Line.ForeColor.SchemeColor = 10
Set sh = Nothing
End Sub
AW: Objekt in aktive Zelle einfügen
12.08.2005 10:39:35
Klaus
Hallo Christoph
Danke für die schnelle Antwort, klappt soweit gut, aber schön wäre es noch, wenn der Kreis zentriert in der Zelle erscheinen, und etwas kleiner als die Zeilenhöhe wäre. Geht das auch noch?
Gruss Klaus
AW: Objekt in aktive Zelle einfügen
12.08.2005 10:48:45
Christoph
Hi Klaus,
klar, dazu musst du nur die Positionen ".Left", ".Top", usw anpassen.
der erste Parameter gibt dir die Position "Links"
der zweite die Pos. "Oben"
der dritte die "Breite"
und der letzte die "Höhe" des Shapes.
Gruß
Christoph
Anzeige
AW: Objekt in aktive Zelle einfügen
12.08.2005 10:59:57
Klaus
Hi Christoph
Hatte ich mir gedacht, dass es so etwas wie Center gibt. Wie mache ich das ding durchsichtig?
Gruss Klaus
AW: Objekt in aktive Zelle einfügen
12.08.2005 11:10:31
Christoph
Das kannst einfach mit dem Recorder aufzeichnen:
sh.Fill.Transparency = 1#
Gruß
Christoph
AW: Objekt in aktive Zelle einfügen
12.08.2005 11:22:51
Klaus
Hallo Christoph
Nochmals vielen Dank für deine Hilfe. Nach einigen Probieren bin ich jetzt auf folgenden Code gekommen:

Sub Kreis()
Dim sh As Shape
With Selection
Set sh = ActiveSheet.Shapes.AddShape(msoShapeOval, 12#, .Top + 2, 19.5, 19.5)
End With
sh.Line.ForeColor.SchemeColor = 10
sh.Fill.Visible = msoFalse
Set sh = Nothing
End Sub

Jetzt ist die Ausrichtung in der Mitte der Zelle und der Kreis transparent.
Gruss aus der Schweiz
Klaus
Anzeige

87 Forumthreads zu ähnlichen Themen

Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
Anzeige
Grafik laden - Dateipfad in Zelle
Marcus

Hallo,
habe zu folgendem Code eine Frage: Private Sub CommandButton1_Click() With Application .Calculation = xlAutomatic .MaxChange = 0.001 ActiveWorkbook.PrecisionAsDisplayed = False End With If MsgBox("Alles berechnet!" & Chr(13) & "Richtiges Papier eingelegt?" & Chr(13) &...
14.10.2009 08:06:01
Thread-ID: 1109489
12 Beiträge
diagramm aus sich verändernden werten einer zelle
Gill

hallo, hier ein hoffentlich kleines problemchen:
in zelle b12 wird ein wert in abhängigkeit der eingaben in zeile 7 ermittelt.
der verlauf der änderungen in b12 soll grafisch dargestellt werden.
ein bekannter meinte, das ginge nur mit vba.
leider kenne ich mich mit vba nicht aus...
17.11.2009 13:30:19
Thread-ID: 1117955
4 Beiträge
Anzeige
Grafik in Zelle - Durchschnitt darstellen
Stef@n

Hallo Excel-Freunde
ich möchte gern,
1. dass in einer Zelle die Min / Max - Bandbreiten grafisch dargestellt werden (Formel ?)
2. dass in einer Zelle (farblich markiert) der Durchschnittswert mit einem Strich o.ä markiert wird.
Zur Verdeutlichung habe ich das Sheet beigefügt
18.02.2011 22:27:11
Thread-ID: 1201721
6 Beiträge
Funktion die ermittelt ob Grafik in Zeile/Zelle
Lutz

Hallo Excel-Profis,
ich bekomme eine Liste mit diversen Zeilen und in Spalte A gibt es Zeilen die eine Grafik enthalten (Grafik heißt immer BeX am Anfang)
Ich bräuchte eine Funktion die ermittelt, ob in der Zelle A der betreffenden Zeile eine Grafik steht (oder eben eine Grafi die Bex a...
30.03.2011 13:03:33
Thread-ID: 1208257
20 Beiträge
Checkbox in zelle fixieren
Felix

Hallo,
ich habe mir aus Archiveinträgen diesen Code zusammengeflickt und theoretisch funktioniert er auch, um eine Zeile neben der Checkbox grün einzufärben, wenn diese aktiviert wird.
Private Sub CheckBox1_Click() If CheckBox1 Then Range("A2:l2").Interior.ColorIndex = 4 Else Range("A...
06.04.2011 14:03:12
Thread-ID: 1209300
5 Beiträge
Bilder in Zellen einlesen und fixieren
Christina

Hallo,
in Spalte A ab A2 stehen Artikelnr, in Spalte E Bildnamen, die sich aus der Artikelnr & „.jpg“
gebildet werden. Die Bilder selbst sind im Ordner C:\Bilder gespeichert.
Nun sollen die Bilder in Spalte D ab D2 eingelesen werden und die Bilder der Zellgröße angepasst und von...
20.11.2011 23:23:02
Thread-ID: 1238624
5 Beiträge
Diagrammtitel aus einer Zelle einfügen
Jörg

Hallo,
ich muss täglich ein Diagramm erstellen, was ich über ein Makro automatisiert habe.
Nun möchte ich als Diagrammtitel immer den Wochentag und das Datum vom Vortag da drin stehen haben, kann ich in den Diagrammtitel irgendwie auch eine Formel hinterlegen, in der sich das Datum befind...
28.05.2002 14:53:04
Thread-ID: 124291
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
1
11
3
5
5
19
4
4
2
1
3
2
2
4
8
2
2
5
19
2
2
1
1
1