21:18 提问
用PLSQL ODBC导入器 导入EXCEL时提示导入出错
数据都是Varchar2类型的，也是不是字符串超限，不知道是什么鬼？字符串是由中文和标点符号组成的，各位大侠帮忙看下！
按赞数排序
导入前使用excel的分列功能将excel列调整为文本格式，可解！
其他相似问题4084人阅读
Excel编程（16）
插入一张图片
Shapes m_ oS
m_oShapes.AttachDispatch( m_oWorkSheet.GetShapes(), TRUE );
m_oShapes.AddPicture( _T( &D://Blue hills.jpg& ), false, true, 100, 150, 100, 150 );
之后要对插入的对象进行处理，则需要由Shapes获得Shape，Shapes好比插入的所有对象的集合，根据索引来获得指定的对象。
&&&&&& // 获得上面插入的图片对象
&&&&&& m_oShape.AttachDispatch( m_oShapes.GetRange( COleVariant((long)1) ), TRUE );
&&&&&& CString strShapeName = _T( &Blue& );
&&&&&& // 设置图片的名称
&&&&&& m_oShape.SetName( strShapeName );
&&&&&& // 设置图片的宽度
&&&&&& m_oShape.SetWidth( 250 );
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：1025772次
积分：11810
积分：11810
排名：第995名
原创：182篇
转载：211篇
评论：163条
(2)(4)(2)(2)(6)(6)(11)(8)(4)(20)(20)(8)(1)(3)(2)(2)(7)(2)(1)(2)(1)(1)(5)(8)(1)(4)(4)(1)(1)(4)(4)(10)(4)(2)(1)(1)(1)(2)(2)(21)(9)(4)(10)(12)(6)(6)(2)(14)(7)(19)(125)速度恢复 有奖励 酱油党 要爱惜 手指
--------------------------------------
--------------------------------------
你想把这两个表放在不同的Sheet中？
--------------------------------------
引用 2 楼 tianlihu12531 的回复:你想把这两个表放在不同的Sheet中？一个工作表中有个表格对象
--------------------------------------
引用 2 楼 tianlihu12531 的回复:你想把这两个表放在不同的Sheet中？引用 1 楼 k_scott 的回复:没懂。就是引入一个工作薄查看: 4994|回复: 9
自动粘贴图片，shapes.addpicture， 如何锁定图片比例并让图片尺寸根据单元格变化
阅读权限20
在线时间 小时
(62.61 KB, 下载次数: 108)
16:42 上传
点击文件名下载附件
自己从网上下了一些资料，修改以后完成了一个图片粘贴的小工具，原来用的是insert picture，但发现这样贴的图片如果复制黏贴到其他文件，其他人可能就看不到了。
后来又在坛上找到了一个shapes.addpicture, 这下图片黏贴到其他文件倒是看到了，不过比例不对了，而且单元格的尺寸也不能变，一变图片更变形了。
求高手帮我看看以下程序，能给修改下不？？
阅读权限20
在线时间 小时
那应该考虑做一个粘贴功能。。
粘贴的时候 把新表的格式刷成和图片表格一样，能解决问题
阅读权限20
在线时间 小时
& & & & & & & &
那应该考虑做一个粘贴功能。。
粘贴的时候 把新表的格式刷成和图片表格一样，能解决问题
可以帮修改一下附件吗？
阅读权限100
在线时间 小时
Sub insertPic()
& & Dim i As Integer
& & Dim FilPath As String
& & Dim rng As Range
& & Dim s As String
& & With Sheet1
& && &&&For i = 4 To .Range(&a65536&).End(xlUp).Row
& && && && &FilPath = ThisWorkbook.Path & && & .Cells(i, 1).Text & &.jpg&
& && && && &If Dir(FilPath) && && Then
& && && && && & Set rng = .Cells(i, 4)
& && && && && & With rng
& && && && && && &&&ML = .Left
& && && && && && &&&MT = .Top
& && && && && && &&&MW = .Width
& && && && && && &&&MH = .Height
& && && && && && &&&ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
& && && && && && &&&Selection.ShapeRange.Fill.UserPicture FilPath
& && && && && & End With
& && && && &Else
& && && && && & s = s & Chr(10) & .Cells(i, 1).Text
& && && && &End If
& && &&&Next
& && &&&.Cells(4, 1).Select
& & End With
& & If s && && Then
& && &&&MsgBox s & Chr(10) & &没有照片!&
& & End If
End Sub复制代码
阅读权限100
在线时间 小时
请见附件。
18:42 上传
点击文件名下载附件
42.49 KB, 下载次数: 276
阅读权限20
在线时间 小时
蓝桥玄霜 发表于
请见附件。
谢谢老师指点，但您这个方法是让图片和周边单元格一样大小了。
有没有办法能保证图片原始纵横比不变，自动适应单元格大小呢？
阅读权限20
在线时间 小时
可有人来帮我看看吗？
阅读权限20
在线时间 小时
& & & & & & & &
顶顶，别沉了。
阅读权限20
在线时间 小时
求大神帮助。。
阅读权限10
在线时间 小时
& & & & & & & &
请见附件。
太感谢了！！！十分感谢老师！
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 2066|回复: 5
将图片按照单元格的顺序存储名称问题，我用ActiveSheet.Shapes.Range(i)顺序有时不对
阅读权限30
在线时间 小时
&&我的代码是按图片集的顺序进行存储，但是问题是我有一天的图片更改了的话，那么再循环时顺序就不一定是单元格的顺序了。。。如何解决这个问题。。。
下面是我的代码，我也上传了图片。。
& &&&For i = 1 To ActiveSheet.Shapes.Count - 1
& && && && && &ActiveSheet.Shapes.Range(i).Select
& && && && &&&Selection.Copy
& && && && && &With Sheets(1).ChartObjects.Add(0, 0, ActiveSheet.Shapes.Range(i).Width + 28, ActiveSheet.Shapes.Range(i).Height + 30).Chart
& && && && && && & .Paste
& && && && && && & .Export ThisWorkbook.Path & &\& & Cells(i + 3, 3) & &.gif&, &gif&
& && && && && && & .Parent.Delete
& && && && && &End With
& && &&&Next
如何能确定一个图片所在单元格位置？？请高手一定要帮忙！！
22:16 上传
点击文件名下载附件
83.93 KB, 下载次数: 27
阅读权限100
在线时间 小时
图片的顺序和单元格不一致：
Debug.Print ActiveSheet.Shapes.Range(i).Top
阅读权限30
在线时间 小时
在附件中试了不行，得不到
k = ActiveSheet.Shapes.Range(i).Top 跟踪后发现K=108，这个是不是坐标值。。不能返回它的单元格行数。。。
阅读权限100
在线时间 小时
Sub te()
Dim strPath$, i&, ad$, sh, cht
& & strPath = ThisWorkbook.Path & &&
& &&&For i = 1 To ActiveSheet.Shapes.Count
& && &&&Set sh = ActiveSheet.Shapes(i)
& && &&&ad = sh.TopLeftCell.Address
& && &&&sh.CopyPicture
& && &&&Set cht = ActiveSheet.ChartObjects.Add(0, 0, 50, 50)
& && &&&With cht
& && && && &.Chart.Paste
& && && && &.Chart.Shapes(1).Height = 50
& && && && &.Chart.Shapes(1).Width = 50
& && && && &.Chart.Export (strPath & Range(ad).Offset(0, -7).Value & &.gif&)
& && && && &.Delete
& && &&&End With
& & Next
End Sub
复制代码
阅读权限100
在线时间 小时
& & & & & & & &
注意：需要调整图片不超出单元格范围。
请见附件。
19:16 上传
点击文件名下载附件
122.46 KB, 下载次数: 74
阅读权限30
在线时间 小时
等了好久，才等到蓝版主出手相救。。。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师