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

来源：百度知道 编辑：UC知道 时间：2024/09/18 04:20:27
用VBA生成了一个能显示EXCEL信息的HTML，现在想进一步实现当我鼠标放在一个图上的时候，那个图就能放大呢？
比如表格内容：姓名：张三 年龄：9岁
它对应的照片命名为 ：张三-1 （注意画像的大小事：200*200）
现在我想通过VBA实现能够将 张三-1 放大到，他原本的大小500*500
高手帮帮忙吧。。。。。

可以实现就是价格鼠标动作语句（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';&