Shape Größe Umrechnung Punkt in cm und Formatierung Größe
16.06.2024 09:44:09
Dieter(Drummer)
in der Beispieldatei (anbei) wird bei Klick auf Shape1 die Shapegröße in Punkt in Zelle gezeigt und in Nebenzelle per Formel die Umrechung von Punkt in cm angezeigt.
Das funktioniert. Mit Klick auf Shape2 wird per Sendkey (Application.sendkeys"%JMI") die Option "Form formatieren, Größe" von Shape1 angezeigt. Es muss aber vorher Shape1 aktiviert sein, da sonst in aktiver Zelle "JMI" eingetragen wird.
Nun mein Problem.
Wie muss der Code lauten, dass mit Klick auf Shape1, die Umrechnung die Grüße des Shapes in Punkt, Umrechnung in cm und die Option "Form formatieren, Größe", angezeigt wird.
Mit der Bitte um Hilfe,
grüßt,
Dieter(Drummer)
Anbei Beispielmappe:
https://www.herber.de/bbs/user/170284.xlsm
Der bisherige Code:
Public Sub Punkt_in_Cm()
Dim dbl_breite As Double
Dim dbl_laenge As Double
'ActiveSheet.Shapes.Range(Array("Oval 1")).Select
With Worksheets("Tabelle1").Shapes(1)
dbl_breite = .Width
dbl_laenge = .Height
End With
'Angaben Größe Shape in Punkt
Range("B4") = dbl_breite
Range("B5") = dbl_laenge
'Umrechnung Punkt im cm
Range("C4").FormulaR1C1 = "=RC[-1]*0.035277778"
Range("C5").FormulaR1C1 = "=RC[-1]*0.035277778"
End Sub
Sub test()
Application.SendKeys "%JMI"
End Sub
Anzeige