17.06.2020, 17:42
Hallo zusammen,
wieder einmal eine Frage an Euch Excel-Kenner.
Wie kann man ein Shape, hier ein kleiner Kreis (Ellipse), an einer bestimmten Stelle im Zelltext platziert werden?
Ich habe mal hier etwas experimentiert...das funktioniert auch. Aber ich muss mir einen abfummeln um die Position des Bubbles zu platzieren.
Geht das auch eleganter? ich denke da ev. diesen Bubble nach einem bestimmten Begriff und dann zwei Leerzeichen später einzufügen.
In diesem Beispiel soll nach dem Wort Modus dieser Shape eingefügt werden.
Hier mal mein Beispiel:
Habt Ihr mir da bitte einen Lösungsvorschlag?
wieder einmal eine Frage an Euch Excel-Kenner.
Wie kann man ein Shape, hier ein kleiner Kreis (Ellipse), an einer bestimmten Stelle im Zelltext platziert werden?
Ich habe mal hier etwas experimentiert...das funktioniert auch. Aber ich muss mir einen abfummeln um die Position des Bubbles zu platzieren.
Geht das auch eleganter? ich denke da ev. diesen Bubble nach einem bestimmten Begriff und dann zwei Leerzeichen später einzufügen.
In diesem Beispiel soll nach dem Wort Modus dieser Shape eingefügt werden.
Hier mal mein Beispiel:
Code:
Sub Test_Shape_platzieren()
Dim ws As Worksheet, rg As Range, shp As Shape
Call Shape_loeschen
Set ws = ThisWorkbook.ActiveSheet
With ws
Set rg = ws.Cells(51, 2)
rg.Value = "Einstellungen: Auf ""Favoriten Modus "" klicken und dann... hier kommt weiterer Text "
Set shp = .Shapes.AddShape(msoShapeOval, rg.Left + 298, rg.Top + 5, _
Width:=8, Height:=8)
shp.Fill.ForeColor.SchemeColor = 5
shp.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent1
shp.Name = "Ellipse 1"
End With
Set rg = Nothing
Set shp = Nothing
Set ws = Nothing
End Sub
Habt Ihr mir da bitte einen Lösungsvorschlag?