// Height,Width - в мм
Sub УстановитьРазмерРисунка(App_E,Shape,Height,Width)
	msoFalse=0;
	msoTrue=1;
	mmTOpoints = App_E.CentimetersToPoints(0.1);
	
	Shape.LockAspectRatio = msoFalse;
	Heightmm = Shape.Height / mmTOpoints;
	Widthmm = Shape.Width / mmTOpoints;
	
	ScaleHeightK=Height/Heightmm ;
	ScaleWidthK=Width/Widthmm;
	
	Shape.ScaleHeight(ScaleHeightK,msoFalse); 
	Shape.ScaleWidth(ScaleWidthK,msoFalse);   	
	
EndSub