Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
860to864
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
grafik mit bezug auf zelle vba
11.04.2007 16:21:00
asterix80
hallo an alle,
ich hab folgendes problem. Ich möchte bubble's (elipsen) erstellen, die bubbel's sollen durch ein klick auf ein button erstellt werden. vor dem klick wird die zelle markiert werden. diese zelle bekommt dann automatisch ein individuellen namen (z.b. bubbelvalue01), dann wird ein bubble erstellt der auch ein individuellen namen erhält (z.b. bubbel01) jetzt soll der inhalt des bubbels automatisch aus der zelle genommen werden (in diesem beispiel aus bubbelvalue01) bei änderungen der zelle soll der bubbelinhalt auch automatisch geändet werden. die individuellen zellen namen benutze ich, um bei eventuellen zeilen bzw spalten erweiterungen der bezug bubbel zelle erhalten bleibt. bis jetzt hab ich folgenden code:

Private Sub CommandButton1_Click()
ActiveCell.Name = "test01"
ActiveSheet.Shapes.AddShape(msoShapeOval, 11, 11, 35, 18).Select
With Selection
.Name = "testtest"      'das ist der bubblename
.ShapeRange.Fill.ForeColor.SchemeColor = 40 'fctFarbe(12)
.ShapeRange.Line.Visible = msoFalse 'Rand ausblenden
.Characters.Text = ActiveCell.Value
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
With Selection.Characters.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 8
.ColorIndex = 2
End With
End Sub
ich schaff es einfach nicht den inhalt des bubbels in bezug zur zelle zu erstellen. mit dem makro recorder bekomme ich bei manuellem eintrag des formels folgendes makro:

ExecuteExcel4Macro "FORMULA(""=R[11]C[1]"")"
hab jetzt auch gegooglet aber nix gescheites gefunden.
wäre über jede antwort sehr dankbar.
gruss
asterix

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: grafik mit bezug auf zelle vba
11.04.2007 16:41:00
Daniel
Hallo
du musst den Formel-Text für den ExecuteExcel4Makro-Befehl individuell in abhängigkeit von der selektierten Zelle zusammenbasteln
das sieht dann in etwa so aus:
Dim Text As String
Text = "Formula(""=R" & Range("test01").Row & "C" & Range("test01").Column & """)"
ActiveSheet.Shapes("testtest").Select
ExecuteExcel4Macro Text
Gruß, Daniel
AW: grafik mit bezug auf zelle vba
12.04.2007 10:14:03
asterix80
hi daniel,
hat wunderbar funktioniert vielen dank
AW: grafik mit bezug auf zelle vba
12.04.2007 10:10:00
asterix80
hi daniel,
hat wunderbar funktioniert, vielen dank.
gruss
asterix
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige