今回はシート内の画像の左トップセルを取得するサンプルです。 では、サンプルです。 Sub Main() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) Dim sh As Shape Dim shCount As Long: shCount = ws.Shapes.count Dim shTopArr() As Long ReDim …

今回は、改ページなどがある場合に 印刷した際にトップになる行を取得するサンプルです。 では、サンプルです。 Sub Main() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) Dim topRowArr() As Long ReDim topRowArr(0) ' 一行目を予め配列に入れ…

今回は、ブックのシート一覧を取得します。 では、さそくサンプルです。 Sub Main() Dim thisBk As Workbook Set thisBk = ThisWorkbook Dim thisWs As Worksheet Set thisWs = ThisWorkbook.Worksheets(1) Dim ws As Worksheet For Each ws In thisBk.Sheet…

今回は、指定のパス配下のエクセル一覧を取得します。 では、さそくサンプルです。 Sub Main() Dim thisWs As Worksheet Set ThisWs = ThisWorkbook.Worksheets(1) Dim path As String path = ThisWorkbook.path Dim buf As String buf = Dir(path & "\", vb…

こんにちは。 本日は、指定のパスの下にあるフォルダパスを取得するサンプルです。 下まで探しに行ってくれます。 では、サンプルです。 Option Explicit Private ThisWs As Worksheet Private ThisPath As String Private TaishoFolderArr() As String Sub …