午夜国产狂喷潮在线观看|国产AⅤ精品一区二区久久|中文字幕AV中文字幕|国产看片高清在线

    vba 獲取ppt幻燈片中的所有標(biāo)題的代碼
    來源:易賢網(wǎng) 閱讀:1337 次 日期:2016-06-30 09:32:09
    溫馨提示:易賢網(wǎng)小編為您整理了“vba 獲取ppt幻燈片中的所有標(biāo)題的代碼”,方便廣大網(wǎng)友查閱!

    代碼如下:

    private sub commandbutton1_click()

    me.enabled = false

    gettitles

    me.enabled = true

    end sub

    sub gettitles()

    on error resume next

    dim opres as presentation

    set opres = application.activepresentation

    dim oslide as slide

    dim oshape as shape

    dim tr as textrange

    dim stext as string

    dim i as long, j as long

    '循環(huán)每頁幻燈

    for i = 1 to opres.slides.count

    set oslide = opres.slides.item(i)

    '獲取圖形對象

    for j = 1 to oslide.shapes.count

    set oshape = oslide.shapes.item(j)

    '如果有文字

    if oshape.textframe.hastext = msotrue then

    set tr = oshape.textframe.textrange

    stext = tr.text

    '如果符合格式: 根據(jù)情況設(shè)定, 此處前三位構(gòu)成為x.y

    if isnumeric(left(stext, 3)) then

    'msgbox stext

    textbox1.selstart = 65535

    textbox1.seltext = stext & vbcrlf

    end if

    set tr = nothing

    end if

    set oshape = nothing

    next

    set oslide = nothing

    next

    set opres = nothing

    end sub

    更多信息請查看腳本欄目
    易賢網(wǎng)手機網(wǎng)站地址:vba 獲取ppt幻燈片中的所有標(biāo)題的代碼
    由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!

    2025國考·省考課程試聽報名

    • 報班類型
    • 姓名
    • 手機號
    • 驗證碼
    關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 新媒體/短視頻平臺 | 手機站點 | 投訴建議
    工業(yè)和信息化部備案號:滇ICP備2023014141號-1 云南省教育廳備案號:云教ICP備0901021 滇公網(wǎng)安備53010202001879號 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號
    云南網(wǎng)警備案專用圖標(biāo)
    聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號:hfpxwx
    咨詢QQ:1093837350(9:00—18:00)版權(quán)所有:易賢網(wǎng)
    云南網(wǎng)警報警專用圖標(biāo)