使用方法：
1、需安装版google，打开google选择所需区域截图保存为JPG格式
2、在Excel中自建一个workbook，ALT+F11进入VBA界面，新建一个模块，将代码拷贝进去。
代码如下：
Option Explicit
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Type BITMAP
土耳其旅游签证bmT ype As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Private Type PicInfo
干拌面的做法PicWidth As Long
picHeight As Long
End Type
Private Function GetPicSize(lsPicName As String) As PicInfo
Dim hBitmap As Long
Dim res As Long
Dim picHdl As Variant
Dim bmp As BITMAP
res = GetObject(LoadPicture(lsPicName).Handle, Len(bmp), bmp) '取得BITMAP的结构
GetPicSize.PicWidth = bmp.bmWidth
GetPicSize.picHeight = bmp.bmHeight
'DeleteObject picHdl
End Function
Sub GoogleEarth_COMAPI_GenRasterMap()
生化危机电影有几部Dim gei As Object
Dim gec As Object
Dim gep As Object
Dim picW As Integer
Dim picH As Integer
Dim sFileName As String
Dim vTmp As Variant
On Error Resume Next
Set gei = CreateObject("GoogleEarth.ApplicationGE")
If Err.Number > 0 Then
MsgBox "连接GoogleEarth失败！"
Exit Sub
End If
sFileName = Application.GetSaveAsFilename("", "*.jpg,*.jpg")
Set gec = gei.GetCamera(0)
gec.Tilt = 0
gec.Azimuth = 0
If gec.Range > 100000 Then
MsgBox "范围过大，将自动调整为100km！"
gec.Range = 100000
End If
gei.SetCamera gec, 10
gei.SaveScreenShot sFileName, 100
Dim picS As PicInfo
picS = GetPicSize(sFileName)
'Dim pic As StdPicture
'Set pic = StdFunctions.LoadPicture(sFileName)
'picW = pic.Width
'picH = pic.Height
'Set pic = Nothing
Dim iFNo As Integer
iFNo = FreeFile()
Open Left(sFileName, Len(sFileName) - 3) & "tab" For Output As #iFNo Print #iFNo, "!T able"
Print #iFNo, "!version 300"
Print #iFNo, "!charset WindowsSimpChinese"
清朝的皇帝
Print #iFNo, ""
Print #iFNo, "Definition Table"
vTmp = Split(sFileName, "\")
Print #iFNo, " File """ & vTmp(UBound(vTmp)) & """"
Print #iFNo, " Type ""RASTER"""
Set gep = gei.GetPointOnTerrainFromScreenCoords(-1, 1)
Print #iFNo, " (" & gep.Longitude & "," & gep.Latitude & ") (0,0) Label ""Pt 1"","
Set gep = gei.GetPointOnTerrainFromScreenCoords(1, 1)
Print #iFNo, " (" & gep.Longitude & "," & gep.Latitude & ") (" & picS.PicWidth - 1 & ",0) Label ""Pt 2"","
Set gep = gei.GetPointOnTerrainFromScreenCoords(-1, -1)
Print #iFNo, " (" & gep.Longitude & "," & gep.Latitude & ") (0" & "," & picS.picHeight - 1 & ") Label ""Pt 3"","
Set gep = gei.GetPointOnTerrainFromScreenCoords(1, -1)
Print #iFNo, " (" & gep.Longitude & "," & gep.Latitude & ") (" & picS.PicWidth - 1 & "," & picS.picHeight - 1 & ") Label ""Pt 4"""
Print #iFNo, " CoordSys Earth Projection 1, 104"
Print #iFNo, " Units ""Degree"""
Close #iFNo
Set gei = Nothing
Set gec = Nothing
Set gep = Nothing
MsgBox "OK, refer to " & sFileName
End Sub
3、运行——导入图片——完成后自动生成MAP图层。
教你如何用WORD文档(2012-06-27 192246)转载▼
标签：杂谈
答：分节，每节可以设置不同的页眉。文件――页面设置――版式――页眉和页脚――首页不同。
2. 问：请问word 中怎样让每一章用不同的页眉？怎么我现在只能用一个页眉，一改就全部改了？
答：在插入分隔符里，选插入分节符，可以选连续的那个，然后下一页改页眉前，按一下“同前”钮，再做的改动就不影响前面的了。简言之，分节符使得它们独立了。这个工具栏上的“同前”按钮就显示在工具栏上，不过是图标的形式，把光标移到上面就显示出”同前“两个字来。
3. 问：如何合并两个WORD 文档，不同的页眉需要先写两个文件，然后合并，如何做？
答：页眉设置中，选择奇偶页不同与前不同等选项。
4. 问：WORD 编辑页眉设置，如何实现奇偶页不同比如：单页浙江大学学位论文，这一个容易设；双页：（每章标题），这一个有什么技巧啊？
答：插入节分隔符，与前节设置相同去掉，再设置奇偶页不同。
5. 问：怎样使WORD 文档只有第一页没有页眉，页脚？
答：页面设置－页眉和页脚，选首页不同，然后选中首页页眉中的小箭头，格式－边框和底纹，选择无，这个只要在“视图”――“页眉页脚”，其中的页面设置里，不要整个文档，就可以看到一个“同前”的标志，不选，前后的设置情况就不同了。
6. 问：如何从第三页起设置页眉？
答：在第二页末插入分节符，在第三页的页眉格式中去掉同前节，如果第一、二页还有页眉，把它设置成正文就可以了
●在新建文档中，菜单―视图―页脚―插入页码―页码格式―起始页码为0，确定；●菜单―文件―页面设置―版式―首页不同，确定；●将光标放到第一页末，菜单―文件―页面设置―版式―首页不同―应用于插入点之后，确定。第2 步与第三步差别在于第2 步应用于整篇文档，第3 步应用于插入点之后。这样，做两次首页不同以后，页码从第三页开始从1 编号，完成。
7. 问：WORD 页眉自动出现一根直线，请问怎么处理？
答：格式从“页眉”改为“清除格式”，就在“格式”快捷工具栏最左边；选中页眉文字和箭头，格式－边框和底纹－设置选无。
8. 问：页眉一般是---------，上面写上题目或者其它，想做的是把这根线变为双线，WORD 中修改页眉的那根线怎么改成双线的
答：按以下步骤操作去做：
●选中页眉的文字，包括最后面的箭头●格式－边框和底纹●选线性为双线的●在预览里，点击左下小方块，预览的图形会出现双线●确定▲上面和下面自己可以设置，点击在预览周围的四个小方块，页眉线就可以在不同的位置。
9. 问：Word 中的脚注如何删除？把正文相应的符号删除，内容可以删除，但最后那个格式还在，应该怎么办？
答：步骤如下：1、切换到普通视图，菜单中“视图”――“脚注”，这时最下方出现了尾注的编辑栏。2、在尾注的下拉菜单中选择“尾注分隔符”，这时那条短横线出现了，选中它，删除。3、再在下拉菜单中选择“尾注延续分隔符”，这是那条长横线出现了，选中它，删除。
4、切换回到页面视图。尾注和脚注应该都是一样的。
10. 问：Word 里面有没有自动断词得功能常常有得单词太长了，如果能设置下自动断词就好了
答：在工具―语言―断字―自动断字，勾上，word 还是很强大的。
11. 问：如何将word 文档里的繁体字改为简化字？陈嘉桓事件
答：工具―语言―中文简繁转换。
12. 问：怎样微调WORD 表格线？WORD 表格上下竖线不能对齐，用鼠标拖动其中一条线，可是一拖就跑老远，想微调表格竖线让上下对齐，请问该怎么办？
答：选定上下两个单元格，然后指定其宽度就可以对齐了，再怎么拉都行pressAlt，打开绘图，其中有个调整坐标线，单击，将其中水平间距与垂直间距都调到最小值即可。打开绘图，然后在左下脚的绘图网格里设置，把水平和垂直间距设置得最小。
13. 问：怎样微调word 表格线？我的word 表格上下竖线不能对齐，用鼠标拖动其中一条线，可是一拖就跑老远，我想微调表格竖线让上下对齐，请问该怎么办？
答：可以如下操作：●按住ctl 键还是shift，你have a try●double click the line, try it )●打开绘图，设置一下网格（在左下角）。使水平和垂直都为最小，试一把！？●press Alt
14. 问：怎么把word 文档里已经有的分页符去掉？
答：先在工具――选项――视图――格式标记，选中全部，然后就能够看到分页符，delete 就ok了。
发布评论