grafik mit bezug auf zelle vba
11.04.2007 16:21:00
asterix80
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
ExecuteExcel4Macro "FORMULA(""=R[11]C[1]"")"
wäre über jede antwort sehr dankbar.
gruss
asterix
Anzeige