Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Objekt in aktive Zelle einfügen

Forumthread: 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
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten Themen

Diagramm und einzelen Zellen nach PPT kopieren
Mandy

Hallo,
ich habe eine Excelmappe mit Daten und Diagrammen. Meine Frage dazu, ist es möglich, mit einem Makro aus Excel heraus, Diagramme (Diagramm 1", "Diagramm 2") und / oder ein kopierter Range (zB A1 : D10)
in ein Powerpointdokument zu bringen ?
Ich stelle mir das so vor, dass nac...
02.10.2009 09:57:53
Thread-ID: 1106620
2 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
UserForm über Grafik - Inhalt aus aktiver Zelle
Rainer

Hallo,
habe hier mal diesen Code bekommen: ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Insert
Es dürfte doch dann sicher auch einen Code geben, der mir die Adresse des "ActiveSheet" wiedergibt.
Möchte eine Zelle mit etlichem Textinhalt über UserForm lesen und b...
10.06.2010 10:40:37
Thread-ID: 1161193
6 Beiträge
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
UserForm an Zelle fixieren
Marc

Hallo,
ich verwende folgenden Code, damit beim Klick in F5 eine UserForm angezeigt wird:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$F$5" Then UserForm1.Show End If End Sub Gibt es eine Möglichkeit, festzulegen, dass die UserForm immer automatis...
16.07.2012 21:20:22
Thread-ID: 1271392
2 Beiträge
Anzeige
Diagramm VON - BIS in Zelle
Werner

Hallo Excel-Freunde,
ich versuche mal, mein Problem zu beschreiben.
Ich habe eine Tabelle, die in den Spalten ab B1 ein Monatsdatum (immer Monatsende) fortlaufend steht.
31.01.12 28.02.12 31.03.12 bis 30.06.13 also ganz viele Spalten
In der Spalte A stehen Beschreibungen (von...
27.08.2013 19:29:50
Thread-ID: 1328568
4 Beiträge
Anzeige
Verankerung von Objekten in Zelle
Markus

Hi!hab leider ein problem....
ich hab in meiner tabelle ein object (listbox). irgendwie checkt es aber quasi nicht, dass es sich in einer zelle befindet (ist irgendwie nicht verankert/verknüpft...).so kann ich zum bsp. nicht angeben, dass es mit der zelle mitvergrößert werden soll....was ist...
12.08.2002 12:28:48
Thread-ID: 147528
3 Beiträge
Gruppierung anklicken Objekt in Zelle
Salim


Guten Tag,
Ich hätte eine Bitte in Bezug auf einen VBA Code der es ermöglicht, Zeilen ein- und auszublenden beim anklicken eines Objektes direkt in der Zelle und nicht am Rande.
Die Idee ist folgende : in Spalte C möchte ich eine Reihe an Dokumenten listen. Diese Dokumentenliste wi...
17.03.2016 13:51:18
Thread-ID: 1482614
5 Beiträge
Liniendiagramm aus Daten von einer Zelle
einer

Hallo an alle! Ich bin absoluter VBA-Neuling und kenne nur die absoluten Basics, was das Programmieren damit angeht und habe auch schon jedes Forum, das man im Internet finden kann, durchsucht, aber nichts zu meinem Problem finden können.
Und zwar:
mein Excel zieht sich aus einer exter...
30.06.2016 13:17:23
Thread-ID: 1501798
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige