Excel让图片随其他列排序的方法图片排序的技巧
本文以excel 2007为例，很多时候，我们在给excel做产品报告，或者是产品报价单的时候，会在产品名称的旁边加上图片，然后我们会需要给其他列进行排序，但是我们会发现，排序的时候图片列并不会跟着其他列排序，这里，给大家分享下 excel图片排序的一个技巧。
如图所示：
从图中我们可以看到，第一列是产品图片，第三列是价格，这时如果我们想让excel 把第三列按价格从高到低进行产品的排序时，经常会发现排序失败，也就是其他两列是排序好了，但是第一列图片列并不会跟着排序。这里分享下解决的办法：
1.确保图片包含在单元格之内，即图片不能超出单元格的边框。如果图片的高度超过单元格的高度，该图片将无法进行按列排序。
2.在执行&数据&排序&命令时，所选的区域中必须包含图片列。 如果排序时excel没有选中好一列，请按1进行调整，如果再不行，请看第3点；
3.&改变图片属性。当图片插入到Excel中后，其默认的&对象位置&属性为&大小固定，位置随单元格而变&。在Excel 2003中有时由于图片大小不一，单元格的高度也不相同，结果几次排序之后就出现了混乱，而且图片混乱后也无法通过撤销还原。可以通过改变图片属性来解决这一问题。右击图片，选择&大小和属性&,选择如下图所示：
你也可以选中所有图片再进行设置。
大致的方法就是这样
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------VFP 控制 Excel 在指定位置插入图片 - sdta的博客 - 编程中国
VFP 控制 Excel 在指定位置插入图片
oExcel=CreateObject('Excel.Application')
With oExcel
.Workbooks.Add
.SheetsInNewWorkBook=1
.Sheets(1).Cells(2,5).Select
.ActiveSheet.Pictures.Insert("F:\第五十组MIS设计报告\1-110Q0130GD10.jpg").Select
.Selection.ShapeRange.LockAspectRatio =.T.
.ActiveSheet.Columns(5).ColumnWidth=500/6.06 && 像素宽度与6.06的比值为列宽，同理可以设置行高
.ActiveWorkBook.SaveAs("D:\群问题\Aa.Xls")
.Visible=.T.
RELEASE oExcel
浏览37356次
(1279)(1145)(1088)(1041)(984)(942)(925)(903)(888)(849)怎样在Excel中制作复合饼图和复合条饼图
您现在的位置：&&>>&&>>&&>>&正文
怎样在Excel中制作复合饼图和复合条饼图
作者： 文章来源： 点击数： 更新时间： 9:17:06
&&& 在Excel中插入饼图时有时会遇到这种情况，饼图中的一些数值具有较小的百分比，将其放到同一个饼图中难以看清这些数据，这时使用复合条饼图就可以提高小百分比的可读性。复合饼图（或复合条饼图）可以从主饼图中提取部分数值，将其组合到旁边的另一个饼图（或堆积条形图）中。例如下面的饼图显示了某杂志的读者职业分布情况，其中小百分比数据较为密集不易看清楚。
&&& 而改用复合条饼图就显得一目了然。
&&& 有时还需要强调饼图中的一组数值，这时就可以使用复合饼图或复合条饼图，如下例为某些产品在几个城市的销售情况，第二个表格为“广州”的销售数据。
&&& 用复合饼图可以突出显示“广州”的详细销售情况。
&&& 下面以上表为例介绍复合饼图的制作方法，复合条饼图的制作方法类似。
&&& 首先，为了制作复合饼图，需要将上表中的数据进行重新组合，将数值放到同一行或同一列中，如下图中底部的表格：
&&& Excel 2003：
&&& 1.选择重新组合后表格中的某个单元格，如B9单元格，单击菜单“插入→图表”，在“图表向导”对话框中选择“饼图”，“子图表类型”选择“复合饼图”。&&&
&&& 单击“完成”按钮。
&&& 2.删除右侧的图例，双击图表中的数据系列，弹出“数据系列格式”对话框，选择“数据标志”选项卡，勾选“类别名称”和“值”。
&&& 选择“选项”选项卡，可以看到“分割系列”默认选择的是“位置”，表示表格最后的几个数值将被放到次饼图中，具体的数量通过调整“第二绘图区包含最后”右侧的数值来确定，本例中由于有4个数值（“广州”的4个销售数据）需在次饼图中显示，这里改为“4”。另外，调整“第二绘图区的尺寸”来调整次饼图的大小，这里改为“70”，即次饼图的尺寸为主饼图的“70%”。
&&& “分割系列”选项除“位置”外，还有其他几个选项，含义如下：
&&& 数值：图表中的数据系列数值小于指定数值时放到次饼图中。[1]&&
上一篇文章：
下一篇文章：
&其他网友还在看：
　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
::发表评论::
评论内容：
请遵守及中华人民共和国其他各项有关法律法规。
严禁发表危害国家安全、损害国家利益、破坏民族团结、破坏国家宗教政策、破坏社会稳定、侮辱、诽谤、教唆、淫秽等内容的评论 。
用户需对自己在使用本站服务过程中的行为承担法律责任（直接或间接导致的）。
评论需要审核通过后才可见，本站管理员有权保留或删除评论内容。
评论内容只代表网友个人观点，与本网站立场无关。
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
Excel技巧天地 E-mail:查看: 8744|回复: 12
在Excel表格中的指定位置插入图片
阅读权限10
在线时间 小时
我的excel表中有一个审批表和一个放有图片的表格，现在我需要将指定的图片放到审批表中的指定位置，该如何做？谢谢大家！
[ 本帖最后由 dede1987 于
15:26 编辑 ]
02:02 上传
点击文件名下载附件
91.13 KB, 下载次数: 108
阅读权限20
在线时间 小时
选中单元格，插入图片，然后在图片的属性里选第一项，也就是大小和位置随单元格的变化而变化。这样做后，用鼠标仍可移支图片。
阅读权限20
在线时间 小时
选中单元格，插入图片，然后在图片的属性里选第一项，也就是“大小和位置随单元格的变化而变化”。这样做后，用鼠标仍可移动图片。
刚才错了一个字，不忘了传附件。
07:47 上传
点击文件名下载附件
154.86 KB, 下载次数: 113
阅读权限90
在线时间 小时
& & & & & & & &
点击图片库中需要的图片，象复制单元格一样操作，然后调整大小。
阅读权限30
在线时间 小时
回复 1楼 dede1987 的帖子
请参考附件。表中的产品名称仅是模拟。以此类推，可作其他类似的查询之用。
09:40 上传
点击文件名下载附件
312.56 KB, 下载次数: 250
阅读权限100
在线时间 小时
Sub cartup()
& & Dim rng As Range, ML, MT, MW, MH, shp As Shape
& & On Error Resume Next
& & Sheet12.Activate
& & For Each shp In ActiveSheet.Shapes
& && &&&If shp.Type = 13 Then
& && && && &shp.Delete
& && &&&End If
& & Next
& & Set rng = Cells(4, 3).Resize(1, 27)
& && &&&With rng
& && && && &ML = .Left
& && && && &MT = .Top
& && && && &MW = .Width
& && && && &MH = .Height
& && && && &Sheet25.Shapes(&Picture 1&).Copy
& && && && &.Select
& && && && &ActiveSheet.Paste
& && &&&End With
& && &&&Selection.ShapeRange.Left = ML
& && &&&Selection.ShapeRange.Top = MT
& && &&&Selection.ShapeRange.Width = MW
& && &&&Selection.ShapeRange.Height = MH
& && &&&
& & Set rng = Cells(39, 26).Resize(2, 4)
& && &&&With rng
& && && && &ML = .Left
& && && && &MT = .Top
& && && && &MW = .Width
& && && && &MH = .Height
& && && && &Sheet25.Shapes(&Picture 2&).Copy
& && && && &.Select
& && && && &ActiveSheet.Paste
& && &&&End With
& && &&&Selection.ShapeRange.Left = ML
& && &&&Selection.ShapeRange.Top = MT
& && &&&Selection.ShapeRange.Width = MW
& && &&&Selection.ShapeRange.Height = MH
& && &&&
& & Set rng = Cells(39, 6).Resize(2, 4)
& && &&&With rng
& && && && &ML = .Left
& && && && &MT = .Top
& && && && &MW = .Width
& && && && &MH = .Height
& && && && &Sheet25.Shapes(&Picture 3&).Copy
& && && && &.Select
& && && && &ActiveSheet.Paste
& && &&&End With
& && &&&Selection.ShapeRange.Left = ML
& && &&&Selection.ShapeRange.Top = MT
& && &&&Selection.ShapeRange.Width = MW
& && &&&Selection.ShapeRange.Height = MH
& && &&&
& & Set rng = Cells(39, 15).Resize(2, 4)
& && &&&With rng
& && && && &ML = .Left
& && && && &MT = .Top
& && && && &MW = .Width
& && && && &MH = .Height
& && && && &Sheet25.Shapes(&Picture 4&).Copy
& && && && &.Select
& && && && &ActiveSheet.Paste
& && &&&End With
& && &&&Selection.ShapeRange.Left = ML
& && &&&Selection.ShapeRange.Top = MT
& && &&&Selection.ShapeRange.Width = MW
& && &&&Selection.ShapeRange.Height = MH
& && &&&
& & [a1].Select
& & If Err.Number && 0 Then Err.Clear: On Error GoTo 0
End Sub
阅读权限10
在线时间 小时
回复 5楼 nt_ljm 的帖子
您好！我就是想要这种样子的，请问您是如何实现的？我是个新手，希望你能说的详细点，谢谢！
阅读权限10
在线时间 小时
回复 6楼 蓝桥玄霜 的帖子
您好！谢谢您！我想要的结果已经实现，请问您是如何实现的？我是个新手，您的代码我有点看不明白，希望您能给代码注释一下，不胜感激！
阅读权限100
在线时间 小时
代码的意思就是把需要插入图片的单元格区域的大小及位置找到，然后把图片拷贝进来，使图片的大小等于前者的大小，使图片的位置等于前者的位置。
真想学习VBA的话，建议从看一本VBA入门书开始学习。
现在给你注释了也是没用的。
阅读权限10
在线时间 小时
回复 9楼 蓝桥玄霜 的帖子
谢谢！受教了！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师