Ovo sam samo pritisnuo na rec macro, i namestio im velicinu i rasporedio ih.
Mozda ne bi bilo lose recimo da mi širina fotke može biti najviše 10 cm, a visina 14cm.
I da se recimo prvo prati uslov visina na 14 cm, i ako proporcionalna sirina ne prelazi 10 cm onda je to to...
A ako prelazi sirina 10cm, onda da je to primarni uslov, a visina moze biti manja od 14cm.
E sad ne znam kako bi mogla pozicija na papiru. Papir je 950x650mm. Kako bi moglo to da se namesti da fotka pocinje uvek na istom mestu? Po pikselima ili?
Code:
Sub slicice()
'
' slicice Macro
' Macro recorded 20.12.2011 by deco01.st24
'
'
ActiveSheet.Pictures.Insert("("D:\#Provereno NOVO\XLS\1.jpg"). _
Select
Selection.ShapeRange.IncrementLeft -375#
Selection.ShapeRange.IncrementTop -685.5
Selection.ShapeRange.ScaleWidth 0.46, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.46, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.89, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.89, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 48#
Selection.ShapeRange.ScaleWidth 0.95, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.96, msoFalse, msoScaleFromTopLeft
ActiveSheet.Pictures.Insert("("D:\#Provereno NOVO\XLS\2.jpg"). _
Select
Selection.ShapeRange.IncrementLeft 516#
Selection.ShapeRange.IncrementTop -675.75
Selection.ShapeRange.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.97, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.97, msoFalse, msoScaleFromBottomRight
ActiveSheet.Pictures.Insert("("D:\#Provereno NOVO\XLS\3.jpg"). _
Select
Selection.ShapeRange.IncrementLeft -321#
Selection.ShapeRange.IncrementTop -63.75
Selection.ShapeRange.ScaleWidth 0.74, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.73, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 63#
Selection.ShapeRange.IncrementTop -3.75
ActiveSheet.Pictures.Insert("("D:\#Provereno NOVO\XLS\4.jpg"). _
Select
Selection.ShapeRange.ScaleWidth 2#, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.5, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.44, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.44, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Flip msoFlipHorizontal
Selection.ShapeRange.IncrementLeft -393#
Selection.ShapeRange.IncrementTop 25.5
ActiveSheet.Pictures.Insert("("D:\#Provereno NOVO\XLS\5.jpg"). _
Select
Selection.ShapeRange.ScaleWidth 0.44, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.44, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -246#
Selection.ShapeRange.IncrementTop -6.75
Selection.ShapeRange.IncrementLeft -24#
Selection.ShapeRange.IncrementTop 38.25
ActiveWindow.SmallScroll Down:=12
ActiveSheet.Pictures.Insert("D:\#Provereno NOVO\XLS\6.jpg"). _
Select
Selection.ShapeRange.IncrementLeft 459#
Selection.ShapeRange.IncrementTop 561#
Selection.ShapeRange.ScaleWidth 0.74, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.74, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 39#
Selection.ShapeRange.IncrementTop 28.5
Selection.ShapeRange.ScaleWidth 0.86, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.87, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -34.5
End Sub