28.09.2016, 11:43
(Dieser Beitrag wurde zuletzt bearbeitet: 13.10.2016, 13:45 von Rabe.
Bearbeitungsgrund: Mini-Schriftformat entfernt
)
Hallo miteinander,
ich benötige ein Makro welches diese Funktionen ausführt, jedoch nur beim EInfügen von Bildern aus der Zwischenablage greift, bei Texten aber Ignoriert wird
also irgendwas in der Art If Clipboard Contains Image Then....
Hier ist mein Makro was bisher aber auch bei Texten greift...
Sub BildEinfuegen()
ActiveSheet.Paste
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).LockAspectRatio = msoFalse
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Height = ActiveCell.Height
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Width = ActiveCell.Width
Selection.Placement = xlMoveAndSize
End Sub
wär toll wenn jemand eine Idee hat
ich benötige ein Makro welches diese Funktionen ausführt, jedoch nur beim EInfügen von Bildern aus der Zwischenablage greift, bei Texten aber Ignoriert wird
also irgendwas in der Art If Clipboard Contains Image Then....
Hier ist mein Makro was bisher aber auch bei Texten greift...
Sub BildEinfuegen()
ActiveSheet.Paste
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).LockAspectRatio = msoFalse
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Height = ActiveCell.Height
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Width = ActiveCell.Width
Selection.Placement = xlMoveAndSize
End Sub
wär toll wenn jemand eine Idee hat
