采用批注办法:点" />
乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 在<em>excel</em>中如何使鼠标经过图片时,如何使图片变大?

在<em>excel</em>中如何使鼠标经过图片时,如何使图片变大?

作者:乔山办公网日期:

返回目录: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>
你自己再修改一下代码中的名称和对应数值即可

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网