Warning: error_log(/data/www/wwwroot/hmttv.cn/caches/error_log.php): failed to open stream: Permission denied in /data/www/wwwroot/hmttv.cn/phpcms/libs/functions/global.func.php on line 537 Warning: error_log(/data/www/wwwroot/hmttv.cn/caches/error_log.php): failed to open stream: Permission denied in /data/www/wwwroot/hmttv.cn/phpcms/libs/functions/global.func.php on line 537 在线观看欧美视频,久久精品国产99国产精2020丨,制服丝袜怡红院 

      

        

          



          
	
          
		
          
			
			
          
				
          整合營銷服務(wù)商
          
				
          電腦端+手機端+微信端=數(shù)據(jù)同步管理
          
			
          
			
          				
				
          免費咨詢熱線：
          			
			
          
		
          
	
          
		
	
	
	

          


          
	

          

 

          
  
          
    
          
      
          
        
          VBA｜自動對文件夾中的全部圖片建立網(wǎng)頁，并以圖片名附加說明
          
        
           
          
	
	
          
		
                        
          如下文件夾：
          要通過bat建立包含文件夾中全部圖片的網(wǎng)頁，如下：
          上面的網(wǎng)頁以圖片的文件名作為圖片說明，統(tǒng)一圖片尺寸插入到網(wǎng)頁中。
          bat代碼如下：
          echo ^<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"^> >picList.html
          echo ^<html xmlns="http://www.w3.org/1999/xhtml"^> >>picList.html
          echo ^<head^> >>picList.html
          echo ^<title^>picList^</title^> >>picList.html
          echo ^<style type=text/css^> >>picList.html
          echo div{width:74.125^%%;} >>picList.html
          echo div{margin^:auto^;} >>picList.html
          echo img{display^:block^;margin^:auto;} >>picList.html
          echo img{padding^:2px 22px;} >>picList.html
          echo img{border^:0 red solid;} >>picList.html
          echo a:link{text-decoration: none; color:#fff;} >>picList.html
          echo ^</style^>^</head^> >> picList.html
          echo ^<body^>^<div^> >>picList.html
          for /f "tokens=1,2 usebackq delims=." %%b in (`dir /o:n /b`) do (
          if not "%%c" == "bat" (
          if not "%%c" == "html" (
          echo ^<p style="text-indent:-2em;"^>%%b ↓^</p^> >>picList.html
          echo ^<a href="%%b.%%c" title="%%b.%%c"^>^<img src="%%b.%%c" /^>^</a^> >>picList.html
          )
          )
          )
          echo ^</div^> >>picList.html
          echo ^</body^> >>picList.html
          echo ^</html^> >>picList.html
          代碼說明：
          首先寫入picList.html的頭文件部分，包括css代碼；
          然后通過一個循環(huán)獲取全部圖片文件的文件名和擴展名，寫入圖片文字說明并插入圖片；
          最后是寫picList.html文件的尾文件部分。
          delims=.后面如果有空格，則文件名中如果有空格時則會出錯；
          dir /o:d /b：顯示文件夾名或文件名（包括擴展名）。
          -End-
          分享成果，隨喜正能量】我們畢生的任務(wù)就是做一個優(yōu)秀的普通人。這個優(yōu)秀的普通人，熱愛世界，熱愛萬物，熱愛眾生，然后踏踏實實地去尋找到一個自己內(nèi)心喜歡又有時代價值的事情。一個人一輩子能夠做好一兩件事就很好了。。
          我給VBA的定義：VBA是個人小型自動化處理的有效工具。利用好了，可以大大提高自己的勞動效率，而且可以提高數(shù)據(jù)的準確度。我推出的VBA系列教程共十套(本文的最后附有VBA教程目錄和VBA工具目錄)，現(xiàn)在已經(jīng)全部完成。
          如果您VBA是入門階段，可以打包選擇7.1.3.9教程，第7套教程是入門，第1套教程是入門后的提高，第3套教程字典是必備的VBA之精華，第9套教程是實用的典型案例講解。如果您有了一定的VBA基礎(chǔ)可以根據(jù)自己的需要，進行教程的選擇。教程提供的程序源碼文件就如一座大型的代碼庫支持著大家的工作。同時還有實用的資料送給學(xué)員。
          VBA是面向?qū)ο缶幊痰恼Z言，博大精深。很多朋友咨詢英語和VBA的關(guān)系，這套《VBA即用型代碼手冊（漢英）》集合了眾多的案例，案例我用漢語和英語同時發(fā)布，學(xué)員從中可以更好的領(lǐng)會和掌握VBA中用到的一些英語。今日的內(nèi)容：WORD_VBA文本框的添加、刪除、寫入及保存為html文件
          第六章 Word對象及示例
          Word Objects and Macro Examples
          7 文本框的添加、刪除、寫入 TextBox: Add, Delete, Write
          Sub mynzAddTextBox()
          ActiveDocument.Shapes.AddTextBox Orientation:=msoTextOrientationHorizontal, _
          Left:=100, Top:=180, Width:=300, Height:=100
          End Sub
          Sub mynzDeleteTextBox()
          '我們需要檢查 oShape 是否屬于 msoShapeRectangle 類型，并且它的文本框是否包含書寫位置
          Dim oShape As Shape
          If ActiveDocument.Shapes.Count > 0 Then
          For Each oShape In ActiveDocument.Shapes
          If oShape.AutoShapeType = msoShapeRectangle Then
          If oShape.TextFrame.HasText = True Then
          oShape.Delete
          End If
          End If
          Next oShape
          End If
          End Sub
          Sub mynzWriteInTextBox()
          Dim oShape As Shape
          If ActiveDocument.Shapes.Count > 0 Then
          For Each oShape In ActiveDocument.Shapes
          If oShape.AutoShapeType = msoShapeRectangle Then
          If oShape.TextFrame.HasText = True Then
          oShape.TextFrame.TextRange.InsertAfter "VBA Case"
          Exit For
          End If
          End If
          Next oShape
          End If
          End Sub
          8 另存為html文件SaveAs .Html File
          Sub mynzSaveMewithDateName()
          '將當(dāng)前活動文檔保存為過濾后的 html，并以當(dāng)前時間命名
          Dim strTime As String
          strTime = Format(Now, "hh-mm")
          ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & strTime, FileFormat:=wdFormatFilteredHTML
          End Sub
          【分享成果，隨喜正能量】我20多年的VBA實踐經(jīng)驗，全部濃縮在下面的各個教程中：
          【分享成果，隨喜正能量】總有一段時光，讓我們深感痛苦，但不是所有的時光都這樣，我們要學(xué)會在黑暗中，找到一絲光芒，這束光來自于內(nèi)心，它會讓我們重新找到好日子。。
          Excel VBA中，HTMLText對象表示可以包含HTML標記的文本。它通常用于向HTML文件或瀏覽器窗口中添加格式化文本。當(dāng)您希望在Excel中顯示具有樣式和格式的文本時，您可以使用HTMLText對象來創(chuàng)建富文本。使用HTML標簽和屬性，您可以調(diào)整字體、顏色、大小、對齊方式等文本的外觀和布局。HTMLText對象提供了使VBA能夠生成并處理HTML文本的功能。
          以下是一些示例代碼，展示如何使用HTMLText對象的標簽和屬性來調(diào)整字體、顏色、大小、對齊方式等文本的外觀和布局。
          1. 調(diào)整字體：
          Dim htmlText As HTMLText
Set htmlText = New HTMLText

htmlText.Text = "<font face=""Arial"">This text has Arial font.</font>"
          1. 調(diào)整顏色：
          Dim htmlText As HTMLText
Set htmlText = New HTMLText

htmlText.Text = "<span style=""color: red;"">This text is in red color.</span>"
          1. 調(diào)整大?。?/span>
          Dim htmlText As HTMLText
Set htmlText = New HTMLText

htmlText.Text = "<font size=""4"">This text has size 4 font.</font>"
          1. 調(diào)整對齊方式：
          Dim htmlText As HTMLText
Set htmlText = New HTMLText

htmlText.Text = "<div align=""center"">This text is centered.</div>"
          以上代碼示例中，我們首先創(chuàng)建了一個HTMLText對象，然后使用對象的Text屬性來設(shè)置HTML文本。通過使用不同的HTML標簽和屬性，可以實現(xiàn)所需的調(diào)整，如字體、顏色、大小和對齊方式等。在這些示例中，我們分別使用了<font>標簽、<span>標簽、<div>標簽和相應(yīng)的屬性來實現(xiàn)相應(yīng)的調(diào)整。
          請注意，為了在Excel中顯示HTML文本，您可能需要使用其他工具或方法來將HTML文本應(yīng)用于單元格或其他控件，例如使用Range對象的HTMLBody屬性或通過將HTML文本加載到WebBrowser控件中來實現(xiàn)。以上代碼僅提供了如何使用HTMLText對象來生成所需的HTML文本的示例。
          在使用HTMLText對象編寫VBA時，有幾點需要注意：
          1. 引入Microsoft HTML Object Library：在使用HTMLText對象之前，需要確保已經(jīng)引入了Microsoft HTML Object Library。可以通過選擇"工具" -> "引用"，然后勾選"Microsoft HTML Object Library"來進行引入。
          2. 編寫有效的HTML代碼：HTMLText對象要求傳遞有效的HTML代碼。您需要熟悉HTML標簽和屬性，并確保編寫的HTML代碼正確且有效。如果HTML代碼包含錯誤或無效的標簽、屬性或語法，可能會導(dǎo)致問題或錯誤。
          3. 轉(zhuǎn)義特殊字符：在將文本作為HTML代碼插入到HTMLText對象中時，需要注意轉(zhuǎn)義特殊字符。例如，"<"字符應(yīng)該寫為"<"，">"字符應(yīng)該寫為">"，以確保HTML代碼得到正確解析。
          4. 注意HTML代碼對Excel的影響：HTMLText對象將HTML代碼解釋為富文本，并在Excel中顯示相應(yīng)的格式。您需要考慮HTML代碼對單元格大小、行高、列寬等Excel布局的影響。大量的HTML代碼可能導(dǎo)致單元格變得較大并影響整體布局。
          5. 處理HTML與VBA互動：HTMLText對象提供了一些方法和屬性，可以與HTML文本進行交互。您可以使用這些方法和屬性來讀取或修改HTML文本的內(nèi)容，例如查詢或更改特定標簽的屬性。
          下面提供一個簡單的代碼示例來演示如何使用HTMLText對象來創(chuàng)建和顯示富文本。
          Sub Example()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    Dim htmlText As HTMLTextObject
    
    ' 創(chuàng)建新工作簿和工作表
    Set wb = Workbooks.Add
    Set ws = wb.Sheets(1)
    
    ' 在A1單元格中插入HTML格式的文本
    Set rng = ws.Range("A1")
    Set htmlText = rng.HTMLText
    htmlText.Html = "<b><font color='red'>這是粗體紅色的文本。</font></b>"
    
    ' 設(shè)置字體大小和水平對齊方式
    rng.Font.Size = 12
    rng.HorizontalAlignment = xlCenter
    
    ' 將字體顏色設(shè)置為紅色
    rng.Font.Color = RGB(255, 0, 0)
End Sub
          在這個示例中，我們創(chuàng)建了一個新的工作簿，然后在第一個工作表的A1單元格中插入了一個HTML格式的文本。通過使用HTML標簽<b>和<font>，我們將文本設(shè)置為加粗且紅色。然后，我們設(shè)置了字體大小和水平對齊方式，并將字體顏色設(shè)置為紅色。運行此代碼，您將看到在Excel中的A1單元格中顯示了粗體的紅色文本。
          總之，在使用HTMLText對象編寫VBA時，需要熟悉HTML代碼和相關(guān)的方法和屬性，并確保生成的HTML代碼有效且能夠與Excel適配。
                              	
          
	
	

          

          

 
          
        
        
		  
      
          
      
      
          
    
          
  
          

          



 


			
		





          
  
          
    
  
          

          

          
	
          
		
		
		
          
	
          


          
 

 







主站蜘蛛池模板：
久久福利一区二区|
精品成人一区二区三区免费视频|
无码国产亚洲日韩国精品视频一区二区三区
|
亚洲精品色播一区二区|
在线电影一区二区|
成人在线视频一区|
国产午夜福利精品一区二区三区|
中文字幕一区二区三区在线观看|
成人区人妻精品一区二区不卡视频|
在线观看国产一区|
蜜桃臀无码内射一区二区三区|
中文精品一区二区三区四区|
日本人真淫视频一区二区三区|
精品国产免费一区二区三区|
中文字幕在线不卡一区二区|
无码精品蜜桃一区二区三区WW|
人妻少妇精品一区二区三区|
亚洲av乱码一区二区三区|
国产伦精品一区二区三区精品|
伊人色综合一区二区三区|
色欲AV蜜臀一区二区三区|
国产一区二区三区亚洲综合
|
精品一区二区久久久久久久网精|
色噜噜一区二区三区|
亚洲Av无码一区二区二三区|
国产一区高清视频|
亚洲色偷偷偷网站色偷一区|
亚洲成人一区二区|
日韩一区二区在线播放|
风流老熟女一区二区三区|
国产在线一区视频|
亚洲av高清在线观看一区二区
|
午夜天堂一区人妻|
日韩免费无码一区二区三区
|
国产一区二区三区久久|
中文字幕Av一区乱码|
久久久久99人妻一区二区三区|
激情内射亚洲一区二区三区|
中文字幕日韩一区|
女人18毛片a级毛片一区二区|
国产精品亚洲一区二区三区|