title image


Smiley habs geschafft ...
Public Sub NextPicture(idx&)

Static Shape_Bild As Shape

Static Shape_Text As Shape, Fbreite!, FHoehe!, Fuckdor!

On Error Resume Next

If idx >= Slide4.SpinMAX Then _

Slide4.SpinWert = Slide4.SpinMAX: Exit Sub

If Not Shape_Bild Is Nothing Then _

Shape_Bild.Delete

If Not Shape_Text Is Nothing Then _

Shape_Text.Delete

With Slide4

Set Shape_Bild = .Shapes.AddPicture(FileName:=picfield(idx), LinkToFile:=msoTrue, SaveWithDocument:=msoFalse, _

Left:=20, Top:=60)

With Shape_Bild

Fbreite = ActivePresentation.SlideShowWindow.width / .width

FHoehe = ActivePresentation.SlideShowWindow.height / .height

Fuckdor = Fbreite

If FHoehe < Fbreite Then _

Fuckdor = FHoehe

Fuckdor = Fuckdor * 0.6

.ScaleHeight Fuckdor, msoFalse, msoScaleFromTopLeft

.ScaleWidth Fuckdor, msoFalse, msoScaleFromTopLeft

End With

Set Shape_Text = .Shapes.AddLabel(msoTextOrientationHorizontal, 10, 10, 400, 100)

With Shape_Text.TextFrame.TextRange

.Text = picfield(idx)

With .Font

.Name = "Arial"

.Size = 10

.Bold = msoFalse

.Italic = msoFalse

.Underline = msoFalse

.Shadow = msoFalse

.Emboss = msoFalse

.BaselineOffset = 0

.AutoRotateNumbers = msoFalse

.Color.SchemeColor = ppForeground

End With

End With

End With

End Sub

Knofi So wie wir heute arbeiten, werden morgen die Beamten leben ...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: