title image


Smiley FUNKTIONIERT !!!!
Hallo Worti,



vielen Dank für die Hilfe, jetzt sieht mein Makro so aus (für alle eingebetteten PDF's etc. wirksam):



Set myDocument = ActiveSheet

For Each s In myDocument.Shapes

Select Case s.Type

Case msoEmbeddedOLEObject, msoLinkedOLEObject, msoOLEControlObject

s.ScaleHeight 0.6, True

s.ScaleWidth 0.6, True

s.Fill.Solid

s.Fill.Transparency = 0#

s.Fill.Visible = msoFalse

s.Line.Transparency = 0#

s.Line.Visible = msoFalse

s.LockAspectRatio = msoTrue

s.Placement = xlMoveAndSize

Case Else

s.ScaleHeight 0.6, False

s.ScaleWidth 0.6, False

End Select

Next



Gruss

Chris

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: