作者:乔山办公网日期:
返回目录:excel表格制作
这个的确很难,估计调用API函数能办到,我收藏后抽空研究,有结果再回答你
采用批注办法:
点单元格——右键——插入批注——双击批注边框——出现百“设置批注格式”对话框——颜色和线条——填充——颜色:下拉选“填充效果”度——出现“填充效果”对话框——图片——选择图回片——出现“选择图片”对话框——选择图片后点“插入”——确答定——确定。
这样,鼠标停留在该单元格时,自动显示图片,鼠标挪开后自动关闭图片窗口。
把图片复制到单元格,调整单元格大小至适合图片,可用ALT键+鼠标挪动图片,以锚定左上角,再调整右下角单元格至图片等于单元格大小。e69da5e6ba90e799bee5baa6e997aee7ad94337
然后右键图片,选属性--选“大小位置均随单元格改变"--确定
此时调整单元格则图片也随之调整了。
以下是你需的VBA代码,你可以用宏录制一个快捷键,删除中间代码。每在当前单元格插入一张图片,就执行一次宏。
Sub InsertPic()
cColumn = ActiveCell.Column
rRow = ActiveCell.Row
n = Sheet1.Shapes.Count
ActiveSheet.Shapes("Picture " & n).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = ActiveSheet.Columns(cColumn).ColumnWidth * 6.44
Selection.ShapeRange.Height = ActiveSheet.Rows(rRow).RowHeight
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
End Sub
可以实现就是价格鼠标动作语句(java),要求原图要大,你在网页中的就限制显示高宽
添加到body里e69da5e887aae79fa5e98193366
<img id=MainImg onmouseover=max() onmouseout=min() src=/view/js/3.jpg width="150" height="100">
<script>
var i=0
//变大
function max(){
MImg=MainImg.style.pixelWidth+=i++
MainImg.style.pixelHeight=MImg*aaa
if(i<20)setTimeout('max()',100)
}
//变小
function min(){
MImg=MainImg.style.pixelWidth-=i--
MainImg.style.pixelHeight=MImg*aaa
if(i>0)setTimeout('min()',100)
}
function init(){
aaa=MainImg.height/MainImg.width
MainImg.style.pixelWidth=150
MainImg.style.pixelHeight=100
}
onload=init
</script>
也可以用下面这个,很简便。我就用它:
<span id="s1" style = "width : 100">
<a href="index.shtml"
onmouseover="img1.style.width='95';"
onmouseout="img1.style.width= '67';">
<Img src="link1.gif" id="img1">
</a>
</span>
你自己再修改一下代码中的名称和对应数值即可