触探数据处理工作ver2改()(共29页)

1、ExcelVBA二次开发在动力触探数据处理分析(fnx)中的应用及与AutoCAD的转换(zhunhun)调研(dio yn)时间：2014年6月2014年12月小组成员（土木122班）：冯振兴、郭海新、郭建言、戴求贤指导老师：摘要：针对工程上常用的软件不具备同时绘制动力触探击数贯入深度曲线和进行击数统计分析的能力，基于ExcelVBA开发了动探数据分析处理、曲线绘制程序，对于提高数据量大，重复性多的动探内业整理工作的效率，起到了很好的作用。用内嵌的VBA语言实现触探、标贯曲线的绘制、锤击数的修正及其各种形式的统计功能，如平均值、标准值、变异系数等（此过程包括其中异常值的取舍）。但EXCEL绘

2、制的触探、标贯表格不能填充花纹，同时绘制触探、标贯曲线不能表现在工程地质柱状图和剖面图上。关键词：动力触探，Excel，VBA，击数贯入深度曲线，数据处理1、引言在高速公路建设中，沉管挤密碎石桩因为其经济、可靠和便于选材等优点而被大量应用于软基加固处理中。其地基加固效果的检测手段一般包括：采用重型动力触探检测桩身密实程度，用静载法测定复合地基承载力，对桩间土进行标准贯入试验及静力触探试验，以判别加固后桩间土的性能。在上述检测方法中，由于静载试验耗费大，不适于大范围应用。因此，目前工程上一般采用重型动力触探来检测软土地基的加固效果，按照公路软土地基路堤设计与施工技术规范（JTJ01796）的要求

3、，动力触探抽查检验数量不少于施工段总桩数的5%，且每个工区检验数量不少于3根。动力触探测试资料处理分析具有数据量大，内业整理重复性劳动多的特点，特别是绘制动力触探击数贯入深度曲线比较繁琐，工程中常使用的绘图软件如AutoCAD、Excel等没有提供直接绘制这类曲线的功能。虽然一些勘察内业处理软件能够绘制动探曲线，但又缺乏对触探击数的统计分析。总之，面对大量的动探资料分析时往往因缺乏合适的分析处理工具而面临着诸多不便，因此开发一个自动处理程序对于提高动探内业整理速度具有很大意义。作为优秀的数据处理分析软件，MicrosoftExcel被广泛应用于工程领域，其使用面非常广，易于使用，一般工程技术人

4、员都会操作。但Excel只是提供了通用的数据输入、管理和统计分析功能，对于用户特殊的需求，需要利用Excel强大的二次开发功能进行定制。本文基于Excel，针对定义好的工作表数据格式，采用ExcelVisualBasicForApplication（VBA）进行二次开发，编制了一系列的“宏”（子程序），能够对动力触探原位测试数据进行统计分析、绘制触探击数深度曲线以及报表制作等数据处理工作，并能自动发送到MicrosoftWord形成Word格式的报告。实践证明，该程序的开发，对于提高动探数据处理分析的效率起到了很好的作用。但EXCEL绘制的触探、标贯表格(biog)不能填充花纹，同时绘制触探、

5、标贯曲线不能表现在工程地质柱状图和剖面图上。AutoCAD是由AutoDesk公司的工程(gngchng)绘图软件，是CAD市场的主流产品，功能十分强大，是工程制图人员常用的软件之一。在工程制图中，若需要在图中插入绘制触探、标贯表格和曲线，一般有两种方法。其一，是利用剪贴板，将Microsoft Excel表格拷贝至剪贴板中，然后打开AutoCAD文件，再将剪贴板中的文件粘贴至所需位置。这种方法十分简单，但有其固有的缺点。在保存文件必须将.xls和.dwg文件保存在一起，一旦(ydn)缺少excel环境，则无法再对表格继续修改。同时打开多个表格操作，需要占据较大的内存空间。文件体积变得很大，表

6、格有时在.dwg文件中以图标形式显示，不便于观察。、无法对表格的打印功能实现控制，打印出来的表格线条粗细不一，打印效果不佳。 第二种方法，AutoDesk公司从R14版以后，为其提供了VBA语言接口。利用Microsoft Excel、AutoCAD都提供的VBA功能，编制程序进行转换，将Microsoft Excel表格按原来样子转换，即把Microsoft Excel表格中的文字和线条信息全部读取出来，在AutoCAD文件里按照一一对应的方式写出来，确保转换后的表格与原表格一致。这样彻底避免了前种方法的缺点，便于表格内容编辑。2、数据准备及数据格式为了便于让程序自动分析处理数据，需要事先规

7、定好数据格式，在Excel工作表中输入原始数据，格式为：为每台施工的碎石桩桩机建立一个独立的工作簿（一般抽检时针对每台桩机进行），每根桩的测试结果保存为一张独立的工作表，表名为桩号（桩号为桩排号与列号的组合，如桩号351，其中35为桩排号，1为桩列号）。将检测日期输入B1单元格，桩实际的里程输入B2单元格，击数从B列第4行开始录入，深度从A列第四行开始录入（见图1），在C2单元格填入桩机的编号。输入以上原始数据后，可以采用编制程序的形式自动生成规范的数据表格格式。将需要统计的末尾行行号填入C1单元格，实际孔深填入F1单元格。由于有时会打到基岩，导致末尾几行的击数特别大（如50击时），统计时应该

8、剔除。F1单元格表示未打到基岩的最后一个击数。在输入桩的设计排距后，程序能自动根据桩的排号计算里程桩号，并填入B2单元格。图1原始数据工作(gngzu)表及数据格式3、主要(zhyo)功能3.1击数统计分析击数统计分析主要包括两个(lin )功能：（1）沿桩身的击数统计参数，包括：10cm阵击数7（桩身达到密实）的击数百分比。程序统计结果自动将填入当前工作表的D2:J6区域（参见图1）。应该指出：上述合格或者达到密实的击数标准在程序中是可以自定义的，根据工程设计的要求来指定，本工程中规定10cm阵击数5为合格，7为达到密实。另外，工程中规定一般，从地面以下开始0.5m之后才开始统计击数，本程序

9、提供了同时分别从地面下0.5m、1m、1.5m、2m开始统计的功能，结果分别输出到图1表中D2:J6区域的第3到第6行。统计时程序能够只对当前工作表中的当前桩进行统计，也可以针对该工作薄中全部工作表所对应的桩进行动力触探击数的统计。（2）统计连续3个10cm阵击都小于5的段并从C28单元格开始存放，便于用户快速判断桩的质量。3.2击数贯入深度(shnd)曲线及分层（1）触探击数深度曲线(qxin)绘制主要提供绘制(huzh)触探击数深度曲线，并将单桩击数平均值文本框添加到曲线图上。程序能够只对当前工作表中的当前桩进行绘制，也可以针对该工作薄中全部工作表所对应的桩进行曲线绘制。图2触探击数深度曲

10、线(qxin)绘制及根据击数曲线进行分层以下是绘制曲线(qxin)的程序片段：WithActiveSheetsJiHao=.Cells(2,3)startRow=4endRow=.Cells(1,3)sSheetName=.NameEndWithstrRange=A4:B+Trim$(CStr(endRow)Range(strRange).SelectCharts.Add增加(zngji)一个曲线图ActiveChart.ChartType=xlXYScatterLinesNoMarkersActiveChart.SetSourceDataSource:=Sheets(sheetName).R

11、ange(strRange),PlotBy:=xlColumnsActiveChart.SeriesCollection(1).XValues=+sheetName+!R4C2:R+Trim$(CStr(endRow)+C2赋X值ActiveChart.SeriesCollection(1).Values=+sheetName+!R4C1:R+Trim$(CStr(endRow)+C1赋Y值ActiveChart.LocationWhere:=xlLocationAsObject,Name:=sheetNameWithActiveChart设置图标题、坐标轴标题等.HasTitle=True.

12、ChartTitle.Characters.Text=附图+Trim(CStr(ActiveSheet.Index)+Trim(JiHao)+机+sheetName+桩击数贯入深度曲线.Axes(xlCategory,xlPrimary).HasTitle=True.Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text=N63.5.Axes(xlValue,xlPrimary).HasTitle=True.Axes(xlValue,xlPrimary).AxisTitle.Characters.Text=深度/mEndWithActiveCh

13、art.HasLegend=False以下再设置字体、颜色和图尺寸、线型等。（2）分层即结合地层结构，根据触探曲线形状进行力学分层，进行分层平均击数统计，在触探击数深度曲线上绘制分层界线。如图2所示，从D22列开始，手工输入各层的界限。然后运行程序，进行分层后的各层平均击数统计，在触探击数深度曲线上绘制分层界线，将分层击数文本框放到各层上，并同时统计连续3个10cm都小于5（可自定义的击数合格标准）的段，存放在C28单元格。以下是绘制分层水平线的程序片段：绘制分层界线DimchAsChartSetch=ActiveSheet.ChartObjects(1).ChartFori=startCol

14、+1TolastcolcInput=.Cells(startRow,i)dStart=val(cInput)dArrayX(0)=0dArrayX(1)=(Round(dAve(i-startCol)/5,0)+1)*5dArrayY(0)=dStartdArrayY(1)=dStartch.SeriesCollection.NewSeriesn=ch.SeriesCollection.Countch.SeriesCollection(n).XValues=dArrayXch.SeriesCollection(n).Values=dArrayYWithch.SeriesCollection(n

15、).Border设置线宽.ColorIndex=1.Weight=xlThin.LineStyle=xlContinuousEndWithWithch.SeriesCollection(n)设置线型.MarkerBackgroundColorIndex=xlNone.MarkerForegroundColorIndex=xlNone.MarkerStyle=xlNone.Smooth=False.MarkerSize=5.Shadow=FalseEndWithNexti分层时根据工程地质手册，考虑了上覆硬层及下卧软层对击数超前和滞后的影响，详见手册。3.3报表编制主要提供将各桩的统计成果汇总到

16、一张统计表中，然后将各桩的曲线自动发送到Word生成报告。（1）统计分析成果汇总。将各桩的统计数据按桩机号汇总到名叫“统计表”工作簿中，“统计表”中有一个“总计”工作表，对每一台桩机n都有一个“统计n”，“分层统计n”的工作表分别统计各桩机的统计成果和分层的统计成果（如图3）。统计表中含本台桩机施工的全部抽检桩的击数统计指标，包括击数5的百分比、击数7的百分比样本数、均值、最小值、最大值、标准差、变异系数、连续30cm击数小于5的测段范围、检测日期、备注以及密实度评价。总计表中包含各桩机桩密实度统计表，分层统计表中各桩的分层统计值，主要是层号、起止深度厚度、该层的平均击数。图3统计表工作(gn

17、gzu)簿（2）统计完毕后，通过(tnggu)编程，自动生成阶梯状的动探曲线图（图4）。（3）将绘制好的动探曲线直接发送到一个(y )Word空文档，进行排版并设置好图幅大小，曲线图放在插入点后，当Word提示保存时必须保存，然后再打开该文档，将所有内容选中并复制到报告末尾即可（图5）。（4）最后，统计各桩机抽检的总进尺，统计各桩机抽检的桩数，供编写报告用。图4图工作(gngzu)簿中生成的阶梯状曲线图图5自动(zdng)生成的Word文档4系统的运行(ynxng)环境本软件(run jin)采用Excel2003环境(hunjng)下采用VisualBasicForApplication开发

18、，可以运行于Excel97，2000、2003及2007下。随后介绍EXCEL表到AUTOCAD表转换表格转换工作机理分析及具体实现方法 1表格转换工作机理分析 在制表过程中，经常遇到两个概念，表和方格。在Microsoft Excel中，与表对应的对象是工作表（Sheet或Worksheet）,与每一个表格方格相对应的对象是单元格区域（range），它可以仅包括一个单元格（cell）,也可以由多个单元格合并而成。 在AutoCAD中，没有与表对应的对象，但表可以理解(lji)由若干条线和文字对象组合而成。 根据上述分析，可以发现(fxin)如下的转换方法：读取Microsoft Excel文

19、件(wnjin)中的最小对象单元格区域(range)的主要信息线条和文字，然后在AutoCAD文件里在指定图层、位置画线条，书写文字。通过循环，遍历所有单元格区域(range),边读边写，最终完成表格的转换。转换过程中，保持线条、文字及其相关属性不发生改变。 下面就转换工作的两个主要对象表格线条和表格文字进行讨论。 2、表格线条的转换 Microsoft Excel 中内嵌的VBA为我们获取Excel文件信息提供了极大便利。通常，通过访问range对象，可以获得许多信息。访问分析表格的属性应从分析range开始。每一个range包括许多对象和属性,例如,font对象可以返回range的字体信息

20、。通过遍历,即可获得整个表格信息。获取表格信息的目的在于准确地按照位置画表格线，同时确定文字位置。 在获取表格信息时，存在一个最佳算法问题。以下就画线问题为例，阐明问题和解决方法。 假设表格由a(a=1)行b(b=1)列组成,x，y为循环变量, 表格完全由单元格组成，由于在每个单元格都有4条边，让x从1开始循环到a, 再y从1开始循环到b,读取每个单元格的4条边,会读取a*b*4次，重复读取a*b*2次。当x=1时，读取上边(shng bin)；当y=1时读取,左边，其余情况读取右边，下边。共读取a+b+ a*b*2次。以3行4列为例，共读取3+4+3*4*2=31次，与实际表格的边数相同，没

21、有重复读取。 对合并单元格信息的读取是个难点。因为如果按照(nzho)单元格的位置依次读取，那么由a行b列个单元格（cell）合并而成的单元格区域(range)仅有4条边，采用上述计算方法，需要读取a+b+ a*b*2次，重复读取a+b+ a*b*2 4次。以3行4列为例，共读取3+4+3*4*2=31次，重复读取31 4=27次。算法有重复。如果按照行号，列号读取，合并单元格的行号、列号只有一个，其值为最靠左、靠上的那个单元格的行号、列号。例如，将A2：E5的单元格合并后，其行号为2，列号为A。这样由多个合并单元格组合后的表格行号、列号有间断，不连续，无法进行循环读取信息。笔者通过研究发现，

22、函数address（）和单元格的mergearea属性可以获得合并单元格的准确信息。具体方法为：读取cells(x,y)单元格时，用address()判断包含cells(x,y)单元格的合并单元格区域c.mergearea的绝对地址,如果前4个字符与cells(x,y) 单元格的地址相同，为cells(x,y)单元格为合并单元格区域最靠上、靠左的那个合并单元格，读取其4条边信息，否则不读取。这样，彻底避免了重复读取，同时提高了整个读取和画线速度。 在AutoCAD中，线条有多种，考虑能够(nnggu)方便控制线条属性，选用了多义线。具体命令如下： RetVal = ThisDrawing. M

23、odelSpace .AddLightWeightPolyline(VerticesList) 下面的程序(chngx)演示表格线条读取和画表格线的具体过程。 Sub hxw() Dim a as interger 表格(biog)的最大行数 Dim b as interger 表格的最大列数 Dim xinit as double 插入点x坐标 Dim yinit as double 插入点y坐标 Dim zinit as double 插入点z坐标 Dim xinsert as double 当前单元格的左上角点的x左标 Dim yinsert as double 当前单元格的左上角点的y

24、左标 Dim ptarray (0 to 2) as double Dim x as integer Dim y as integer For x =1 to a For y=1 to b Set c = xlsheet.Range(zh(y) + Trim(Str(x) 以行号、列号获得单元格地址 Set ma = c.MergeArea 求出单元格C的合并单元格地址 If Left(Trim(ma.Address), 4) = Trim(c.Address) Then 假如c.mergearea的绝对地址(dzh),如果前4个字符与c单元格的地址相同 xl = A1: + ma.Addre

25、ss xh = xlsheet.Range(ma.Address).Width yh = xlsheet.Range(ma.Address).Height Set xlrange = xlsheet.Range(xl) xinsert = xlrange.Width xh yinsert = xlrange.Height yh xpoint = xinit + xinsert ypoint = yinit yinsert If x = 1 Then If ma.Borders(xlEdgeTop).LineStyle xlNone Then ptArray(0) = xpoint 第一点坐标(

26、zubio)（数组下标 0 and 1) ptArray(1) = ypoint ptArray(2) = xpoint + xh 第二点坐标(zubio)（数组下标 2 and 3) ptArray(3) = ypoint End If Lineweight lwployobj, ma.Borders(xlEdgeTop).Weight End If If ma.Borders(xlEdgeBottom).LineStyle xlNone Then ptArray(0) = xpoint + xh 第三点坐标(zubio)（数组下标 0 and 1) ptArray(1) = ypoint

27、yh ptArray(2) = xpoint 第四点坐标(zubio)（数组下标 2 and 3） ptArray(3) = ypoint yh Lineweight lwployobj, ma.Borders(xlEdgeBottom).Weight End If If y = 1 Then If ma.Borders(xlEdgeLeft).LineStyle xlNone Then ptArray(0) = xpoint 第四点坐标(zubio)（数组下标 0 and 1) ptArray(1) = ypoint yh ptArray(2) = xpoint 第一点坐标（数组下标 2 a

28、nd 3) ptArray(3) = ypoint End If Lineweight lwployobj, ma.Borders(xlEdgeLeft).Weight End If If ma.Borders(xlEdgeRight).LineStyle xlNone Then ptArray(0) = xpoint + xh 第二点坐标(zubio)（数组下标 0 and 1) ptArray(1) = ypoint ptArray(2) = xpoint + xh 第三点坐标(zubio)（数组下标 2 and 3） ptArray(3) = ypoint yh Lineweight l

29、wployobj, ma.Borders(xlEdgeRight).Weight End If Set lwployobj = moSpace.AddLightWeightPolyline(ptArray) 在AutoCAD文件(wnjin)里画线 With lwployobj .Layer = 指定lwployobj所在图层 .Color = acBlue 指定lwployobj的颜色 End With Lwployobj.Update Next y Next x End Sub 下面程序控制线条(xintio)粗细 Sub Lineweight(ByVal line As Object,

30、u As Integer) Select Case u Case 1 Call line.SetWidth(0, 0.1, 0.1) Case 2 Call line.SetWidth(0, 0.3, 0.3) Case 4138 Call line.SetWidth(0, 0.5, 0.5) Case 4 Call line.SetWidth(0, 1, 1) Case Else Call line.SetWidth(0, 0.1, 0.1) End Select End Sub 下面程序完成(wn chng)列号转换 Function zh(pp As Integer) As String

31、 If pp 26 Then zh = Chr(64 + pp) Else zh = Chr(64 + Int(pp / 26) + Chr(64 + pp Mod 26) End If End Function 3、表格文字(wnz)转换 表格文字转换包括表格文字本身转换和表格文字在表格中位置的转换两个(lin )部分。 在AutoCAD中，文字标注的形式有多种，与Microsoft Excel 单元格区域多行文本内容相对应的是多行文本命令(mng lng)。AutoCAD提供的VBA添加多行文本的命令语句是： RetVal = ThisDrawing. ModelSpace .AddMTe

32、xt(InsertionPoint, Width, Text) 通过修改RetVal的属性可以控制表格文字在表格中的位置。 (1)表格文字本身的转换 分析AddMText命令可以得出：表格文字所在位置、文字内容宽度，文字内容，均可通过此命令来添加。然而表格文字字体，大小，下划线、上下脚标，倾斜，加粗等却不能。一般的方法是采用修改字体形文件的方法来实现，方法烦琐，不便于实现，而且仅对修改过形文件的字体有效。况且当同一文字块内的不同文字的字体，大小，下划线、上下脚标，倾斜，加粗不同时，使用修改字体形文件的方法也无法实现。本文介绍一种直接利用Mtext命令提供的方法进行转换。 在AddMText命令

33、中，影响文字内容和文字属性的参数(cnsh)Text。在具体文字前加上一定的控制符号可以控制文字的文字属性，具体控制符号可以参阅AutoCAD帮助文件。例如，F宋体；Q18;W1.2;ABCDEFG把“ABCDEFG”设置(shzh)成宋体、向右倾斜18度，每个字的宽度是正常宽度1.2倍。 本程序具体采用的方法是：读取Microsoft Excel文件某一单元格区域(qy)里的某第j个字符属性（字体，大小，下划线、上、下脚标，倾斜，加粗），读取Microsoft Excel文件某一单元格区域里的某第j+1个字符属性，如果与第j个字符相同，则二者采用同样的控制符号；若不同，则从第j+1个字符开始

34、，重复前面的工作。Sub wz ( ) Char = RTrim(Left(c.Characters.Caption, 256) If Char Empty Then textStr = For j = 1 To Len(Char) If c.Characters(j, 1).Font.Underline = xlUnderlineStyleNone Then cpt = c.Characters(j, 1).Caption sonstr = ForeFontStr(c, j) tempstr = Do While j + 1 = Len(Char) sonstr1 = ForeFontStr

35、(c, j + 1) If sonstr1 = sonstr Then j = j + 1 tempstr = tempstr + c.Characters(j, 1).Caption Else Exit Do End If Loop textStr = textStr + + sonstr + cpt + tempstr + Else cpt = c.Characters(j, 1).Caption sonstr = ForeFontStr(c, j) tempstr = Do While j + 1 = Len(Char) sonstr1 = ForeFontStr(c, j + 1) I

36、f sonstr1 = sonstr Then j = j + 1 tempstr = tempstr + c.Characters(j, 1).Caption Else Exit Do End If Loop textStr = textStr + L + sonstr + cpt + tempstr + l End If Next j End If End Sub 下面函数(hnsh)控制字体本身属性 Function ForeFontStr(m As Range, u As Integer) As String a1 = F + m.Characters(u, 1).Font.Name

37、+ ; 字体(zt) a2 = IIf(m.Characters(u, 1).Font.Superscript = True, H0.33x;A2;, ) 上脚标 a3 = IIf(m.Characters(u, 1).Font.Subscript = True, H0.33x;A0;, ) 下脚(xi jio)标 a4 = IIf(m.Characters(u, 1).Font.FontStyle = 倾斜, Q18;, ) 倾斜 a5 = IIf(m.Characters(u, 1).Font.FontStyle = 加粗, W1.2;, ) 加粗 a6 = IIf(m.Character

38、s(u, 1).Font.FontStyle = 加粗 倾斜, W1.2;Q18;, ) 加粗倾斜 ForeFontStr = a1 + a2 + a3 + a4 + a5 + a6 End Function （2）.表格中表格文字位置(wi zhi)的转换 对文字对象的属性的直接控制(kngzh)来实现，通过with.end with 结构可以很容易地控制文字的高度、图层、颜色、书写方向。由于Mtext文字提供支持的排列位置分为9种，必须根据Microsoft Excel表格文字的排列方式加以合适的判定，然后进行转换。其具体的实现方法(fngf)详见下面的程序。 Sub kz( ) With

39、 textObj 文字对象 .Height = textHgt .Layer = newlayer.Name 设置图层 .Color = acRed 设置颜色 .DrawingDirection = 1 设置书写方向 If (ma.VerticalAlignment = xlTop _ Or ma.VerticalAlignment = xlGeneral) _ And (ma.HorizontalAlignment = xlLeft _ Or ma.HorizontalAlignment = xlGeneral) _ Then .AttachmentPoint = 1 acAttachmen

40、tPointTopLeft If (ma.VerticalAlignment = xlTop _ Or ma.VerticalAlignment = xlGeneral) _ And (ma.HorizontalAlignment = xlCenter _ Or ma.HorizontalAlignment = xlJustify _ Or ma.HorizontalAlignment = xlDistributed) _ Then .AttachmentPoint = 2 acAttachmentPointTopCenter If (ma.VerticalAlignment = xlTop

41、_ Or ma.VerticalAlignment = xlGeneral) _ And ma.HorizontalAlignment = xlRight _ Then .AttachmentPoint = 3 acAttachmentPointTopRight If (ma.VerticalAlignment = xlCenter _ Or ma.VerticalAlignment = xlJustify _ Or ma.VerticalAlignment = xlDistributed) _ And (ma.HorizontalAlignment = xlLeft _ Or ma.Hori

42、zontalAlignment = xlGeneral) _ Then .AttachmentPoint = 4 acAttachmentPointMiddleLeft If (ma.VerticalAlignment = xlCenter _ Or ma.VerticalAlignment = xlJustify _ Or ma.VerticalAlignment = xlDistributed) _ And (ma.HorizontalAlignment = xlCenter _ Or ma.HorizontalAlignment = xlJustify _ Or ma.Horizonta

43、lAlignment = xlDistributed) _ Then .AttachmentPoint = 5 acAttachmentPointMiddleCenter If (ma.VerticalAlignment = xlCenter _ Or ma.VerticalAlignment = xlJustify _ Or ma.VerticalAlignment = xlDistributed) _ And ma.HorizontalAlignment = xlRight _ Then .AttachmentPoint = 6 acAttachmentPointMiddleRight I

44、f ma.VerticalAlignment = xlBottom _ And (ma.HorizontalAlignment = xlLeft _ Or ma.HorizontalAlignment = xlGeneral) _ Then .AttachmentPoint = 7 acAttachmentPointBottomLeft If ma.VerticalAlignment = xlBottom _ And (ma.HorizontalAlignment = xlCenter _ Or ma.HorizontalAlignment = xlJustify _ Or ma.HorizontalAlignment = xlDistributed) _ Then .AttachmentPoint = 8 acAttachmentPointBottomCenter If ma.VerticalAlignment = xlBottom _ And ma.Ho