|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.12.2018 19:25:17 |
mso_Johannes |
|
|
|
07.12.2018 05:38:20 |
Werner |
|
|
|
07.12.2018 10:17:56 |
Gast73555 |
|
|
 Bild, als Füllung einer Rechtecksform, über Offsets anpassen |
07.12.2018 10:26:21 |
Gast72100 |
|
|
|
07.12.2018 17:34:55 |
Gast73555 |
|
|
|
08.12.2018 13:43:47 |
mso_Johannes |
|
|
Von:
Gast72100 |
Datum:
07.12.2018 10:26:21 |
Views:
480 |
Rating:
|
Antwort:
|
Thema:
Bild, als Füllung einer Rechtecksform, über Offsets anpassen |
|
Werner. Vielen Dank für die Hinweise. Das mit der Combobox (Eingaben sind Text) hatte ich schon gar nicht mehr bedacht. Leider lässt sich das Problem damit noch nicht lösen. Ich hatte es auch schon mit einer Konvertierung versucht und habe es nun auch nochmal mit einer Long und Double Konvertierung probiert. Aber beim Debuggen wurden schon die Korrekten Werte übergeben und angezeigt.
Aber ist das der richtige Befehl? Außerdem verlangt der Befehl Points (Bildpunkte) als Eingabe. Diese sollten ja als Integer übergeben werden, oder?
Einen Teil des Codes habe ich von:
https://docs.microsoft.com/de-de/office/vba/api/excel.pictureformat.cropleft
Daraus geht nicht genau hervor.
Mein Code lautet (Eingabe soll in Prozent stattfinden und wird auf Originalbildgröße "orgi_width" skaliert):
Sub offset_links()
Dim percentToCrop As Single, orgi_width As Single
percentToCrop = Worksheet1.ComboBox1.Value
orgi_width = Worksheet2.Cells(4, 3)
cropPoints = orgi_width * percentToCrop / 100
cropPoints = Round(CSng(cropPoints), 0)
cropPoints = CLng(cropPoints)
With Worksheet1.Shapes("Group 1").GroupItems("Rectangle1").PictureFormat
.CropLeft = cropPoints
End with
End Sub |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.12.2018 19:25:17 |
mso_Johannes |
|
|
|
07.12.2018 05:38:20 |
Werner |
|
|
|
07.12.2018 10:17:56 |
Gast73555 |
|
|
Bild, als Füllung einer Rechtecksform, über Offsets anpassen |
07.12.2018 10:26:21 |
Gast72100 |
|
|
|
07.12.2018 17:34:55 |
Gast73555 |
|
|
|
08.12.2018 13:43:47 |
mso_Johannes |
|
|