急求一段将ACCESS背景图片设置为拉伸模式的代码

GAOZHONG

急求一段将ACCESS背景图片设置为拉伸模式的代码，多谢了。

access新新新手

todaynew 发表于 2011-6-16 16:21
SizeMode 属性
参阅参阅参阅参阅使用 SizeMode 属性可以指定如何调整绑定对象框、未绑定对象框或图像控 ...

谢谢分享

todaynew

GAOZHONG 发表于 2011-6-16 16:01
急求一段将ACCESS背景图片设置为拉伸模式的代码，多谢了。

SizeMode 属性
参阅参阅参阅参阅使用 SizeMode 属性可以指定如何调整绑定对象框、未绑定对象框或图像控件中的图片或其他对象的大小。

expression.SizeMode
expression      必需。返回“应用于”列表中的一个对象的表达式。

说明
SizeMode 属性使用以下设置：

设置 Visual Basic 说明
剪裁 acOLESizeClip    （默认值）以对象的实际大小进行显示。如果对象的大小超出控件的大小，控件边框会在控件的右边界和下边界剪裁对象。
拉伸 acOLESizeStretch    调整对象的大小以适合控件的大小。该设置可能会破坏对象的正常比例。
缩放 acOLESizeZoom    显示整个对象，并根据需要调整对象大小但不扭曲对象的比例。如果调整控件的大小，该设置可能会在控件中留下额外的空间。


注释  可以在属性表、宏中或者使用 Visual Basic 对 SizeMode 属性进行设置。在 Visual Basic 中可以使用控件的默认控件样式或 DefaultControl 方法对该属性的默认值进行设置。


提示

将该属性设为“剪裁”时显示速度是最快的。对于条形图和折线图则可以设为“拉伸”而不必关心大小调整，不过设为“拉伸”可能会破坏圆和照片的比例。

示例
下面的示例使用名为 OLE1 的非绑定对象框创建链接的 OLE 对象，当用户单击一个命令按钮时调会整控件大小，以显示对象的全部内容。

Sub Command1_Click
    OLE1.Class = "Excel.Sheet"    ' Set class name.
    ' Specify type of object.
    OLE1.OLETypeAllowed = acOLELinked
    ' Specify source file.
    OLE1.SourceDoc = "C:\Excel\Oletext.xls"
    ' Specify data to create link to.
    OLE1.SourceItem = "R1C1:R5C5"
    ' Create linked object.
    OLE1.Action = acOLECreateLink
    ' Adjust control size.
    OLE1.SizeMode = acOLESizeZoom
End Sub