EXCEL中通过VBA生成的网页中怎样能实现鼠标停留图片放大

发布网友发布时间：2022-05-08 09:50

共1个回答

热心网友时间：2024-01-21 23:25

可以实现就是价格鼠标动作语句（java），要求原图要大，你在网页中的就*显示高宽
添加到body里
<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>
你自己再修改一下代码中的名称和对应数值即可