Was geht ab edding schon mal nicht

if(!document.getElementById('paypal-smart-payment-script')) { var script = document.createElement("script"); script.type = "module"; script.id = "paypal-smart-payment-script"; script.src = "//cdn03.plentymarkets.com/cfugbtln6xm7/plugin/16/paypal/js/smartPaymentScript.js"; script.setAttribute("data-client-id", "AdWuJL0_4QpCbc-1eblds8MOx896v6xVNw109dbcaK9_qu3IMAx_Xtb83eYFPUK50prUeIgng6AThqrS"); script.setAttribute("data-currency", "EUR"); script.setAttribute("data-client-token", "eyJicmFpbnRyZWUiOnsiYXV0aG9yaXphdGlvbkZpbmdlcnByaW50IjoiMzAzMjllNjA1NDg0ZGIwYmE2NmMxYWFkNWI5NWY4Njg5MTc0ZjQyMzM5NzYzMTg1MmU4ZmZjYTczYzJlYTg0OXxtZXJjaGFudF9pZD1yd3dua3FnMnhnNTZobTJuJnB1YmxpY19rZXk9ajJmYzJqcHhkZzZ2cDg0ZiZjcmVhdGVkX2F0PTIwMjItMDktMjhUMjM6NTQ6MDUuMDgxWiIsInZlcnNpb24iOiIzLXBheXBhbCJ9LCJwYXlwYWwiOnsiaWRUb2tlbiI6bnVsbCwiYWNjZXNzVG9rZW4iOiJBMjFBQU0zUi1MTWpObFQ3azQtQ1FndWRXZklwYm5HbnpQU3BOMWtmNzJpSWZneXBXNXYzeTVwQmhTZDZia0FnS181eV9VUG1kS0p6eVZtM2VDeVU2eTNEa0NCekxDeEJRIn19"); script.setAttribute("data-append-trailing-slash", ""); script.setAttribute("data-locale", "de_DE"); document.body.appendChild(script); }

if(typeof renderPayPalButtons === 'function') { renderPayPalButtons('6334e3908ffb4', 'paylater', 'paypal', 'rect', 'gold'); } else { document.addEventListener('payPalScriptInitialized', () => { renderPayPalButtons('6334e3908ffb4', 'paylater', 'paypal', 'rect', 'gold'); }); } if(typeof renderPayPalButtons === 'function') { renderPayPalButtons('6334e3908ffb4', 'paypal', 'checkout', 'rect', 'gold'); } else { document.addEventListener('payPalScriptInitialized', () => { renderPayPalButtons('6334e3908ffb4', 'paypal', 'checkout', 'rect', 'gold'); }); }

Ich glaube, da muss Microsoft nochmal ran!

Ich zeichne ein Makro auf: ein Bild wird eingefügt:

ActiveSheet.Pictures.Insert("F:\Eigene Bilder\Erdbeertörtchen.JPG").Select

Ich möchte den Code etwas verändern:

Und stutze, weil das Objekt „Picture“ nicht in der Liste der Objektvariablen angeboten wird. Ich versuche es trotzdem:

Das Makro

Sub BildEinfuegen() Dim xlBlatt As Worksheet Dim xlBild As Picture Set xlBlatt = ActiveSheet Set xlBild = xlBlatt.Pictures.Insert("F:\Eigene Bilder\Erdbeertörtchen.JPG") End Sub

läuft hervorragend. Okay – und was heißt: Bilder verschieben und verkleinern? Der Makrorekorder liefert:

ActiveSheet.Shapes.Range(Array("Picture 8")).Select Selection.ShapeRange.ScaleWidth 0.3169191919, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 0.3169191919, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.IncrementLeft 252 Selection.ShapeRange.IncrementTop 54.75

Merkwürdig – ich hänge den veränderten Code an mein Makro:

Dim xlBlatt As Worksheet Dim xlBild As Picture Set xlBlatt = ActiveSheet Set xlBild = xlBlatt.Pictures.Insert("F:\Eigene Bilder\Erdbeertörtchen.JPG") With xlBild .Width = .Width * 0.3169191919 .Height = .Height * 0.3169191919 .Left = 252 .Top = 54.75 .Visible = True End With

HIER wird das Picture-Objekt erkannt. Und: läuft doch!