趣味のためのMacに関するサイト > Excel/NeoOffice/OpenOffice > 【マクロ】OpenOfficeで列幅を5cm(50ミリ)にする
Excel/NeoOffice/OpenOffice

【マクロ】OpenOfficeで列幅を5cm(50ミリ)にする

マクロの記録で列幅を50ミリにするマクロです。

プルダウンメニューから操作をすれば雑作ないことですが、

  1. プルダウンメニュー 書式
  2. 列/幅
  3. 幅入力
  4. OKボタン

と4つのアクションが必要です。マクロを作り、ツールバーに置けば

ひとつのアクションで済みます。「カンバン方式」では無いかと思います。

Sub Main

End Sub


sub extend50mm
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ColumnWidth"
args1(0).Value = 5000

dispatcher.executeDispatch(document, ".uno:ColumnWidth", "", 0, args1())


end sub

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

ページトップに戻る↑                           ページ一番下へ↓

Mac

About 1q3

ツールとしてのMacについてのメリットデメリットなどの事について書いています。

6 Comments

  1. Vielspieler und Casino-Kenner lieben es. Das für dich
    perfekte Casino ohne deutsche Lizenz, OASIS Sperre
    (Sperrdatei) sowie etwaigen namhaften Zahlungsanbietern findest du
    in unsere Top 3 oder Top 10. Es ist gut, wenn du online Casinos ohne
    deutsche Lizenz gegenüber skeptisch bist. Ein Paradies unter den Casinos ohne deutschen Lizenzen.
    Bonusaktionen sind für viele Spieler das erste Kriterium bei
    der Auswahl eines Online Casinos ohne deutsche Lizenz.
    Gebühren fallen nicht an, abgesehen von Drittanbieter-Kosten. Zusätzlich
    gibt es Reload-Boni von 50 % bis zu 700 € plus Freispiele am Wochenende.
    Die Umsatzbedingungen liegen bei 35x für Bonus + Einzahlung sowie 40x für Freispiele.

    Die Freispiele werden in Paketen von 20 pro Tag über 10 Tage verteilt.
    Gebühren werden nicht direkt genannt, können aber durch Drittanbieter entstehen.

    References:
    https://online-spielhallen.de/schnelle-gewinnauszahlungen-bei-quick-win-casino-was-sie-wissen-mussen/

  2. Zudem bieten wir professionelle Pokerkoffer, die nicht nur praktisch, sondern auch elegant sind.
    Lassen Sie sich von unserem umfangreichen Sortiment begeistern und tauchen Sie ein in die
    Welt des Glücksspiels! Wir bieten kein Online-Glücksspiel an! Mit unseren Arrangements & Geschenkideen.
    In unserem Online Social Casino können Sie dank
    unserer virtuellen Währung, den Stars, puren Spielspaß erleben. Abonnieren Sie am besten unseren Newsletter, um via E-Mail immer über Ihr
    Online Social Casino up to date zu bleiben! Besuche uns auch in unserem
    Showroom und erlebe unsere Produkte hautnah.
    Melden Sie sich auch für unseren Newsletter an, um immer auf dem
    Laufenden zu bleiben und von exklusiven Rabatten zu profitieren. Um Ihren Einkauf noch attraktiver zu
    gestalten, bieten wir Ihnen regelmässig exklusive Angebote
    und Aktionen an. Mit unserem Zubehör verwandeln Sie jedes Wohnzimmer in ein stilvolles Casino, das Ihre Gäste begeistern wird.

    References:
    https://online-spielhallen.de/top-casino-freispiele-ohne-einzahlung-november-2025/

  3. Yes, Australians can play pokies at licensed offshore
    online casinos in Australia for real money.
    Yes, the top-rated online casinos in Australia
    offer live dealer games from leading providers, such as
    Evolution. The top Aussie online casinos offer all kinds of incentives,
    from welcome and reload bonuses to no deposit, high-roller, no
    wagering and cashback bonuses. Australian online casinos
    accommodate all kinds of players, from penny punters to high rollers, allowing them to play
    all sorts of games, thanks to a wide betting range. At the same time, the best online casinos in Australia offer
    live casino games, which can be a perfect substitute for land-based table games.

    The most common gift for activating a welcome package is free cash
    calculated based on the amount deposited and some free spins tied
    to a specific slot machine. As you register, you become entitled to the welcome package offer.
    There are usually given out matching the amount
    of deposit. The full list of recommended gaming houses is placed
    above. When one lucky player gets to hit the jackpot, they get a massive
    win.

    References:
    https://blackcoin.co/45_exclusive-new-jersey-online-poker-vip-programs-compared_rewrite_1/

  4. One of the main things you should know is having extra balance in your gaming
    account from bonuses and promotions. Although many online
    casinos claim to be original and unique, many of them turn out to be a complete hoax.
    The next-level encryption plus blockchain games make it an extremely
    crypto-friendly platform.
    Players with disposable email addresses are not
    eligible for any free spins without deposit. For no
    deposit bonus withdrawals, we reserve the right to request a KYC.
    The wagering requirements for free and registration bonuses are forty (40) times
    the bonus sum awarded to you, unless stated otherwise in the
    supplemental terms and conditions.

    References:
    https://blackcoin.co/the-star-sydney-a-complete-overview-for-online-players/

  5. Every room includes plush bedding, marble bathrooms, and state-of-the-art technologies that ensure comfort and
    convenience, creating the ultimate retreat after a day of excitement.
    Recognized for its commitment to sustainable practices
    and exceptional service, Bellagio offers an unparalleled
    experience that combines culture, art, and refinement.
    The rest of the resort was unaffected, and the fire was put
    out within a half-hour. On the night of April 13, 2017, the roof of the resort’s retail section caught fire, forcing an evacuation of the area.

    Relax by the pool and enjoy your break from the Strip, or
    indulge in one of their additional luxury offerings.
    Whether it’s a wedding, a conference or a private business meeting, any occasion is improved when hosted
    in these Renaissance-style spaces. You may be paying a higher resort fee, but that’s because you’re paying for access to the
    resort. The most expensive suite at Bellagio Hotel Vegas is one of the most luxurious places to stay on the Las Vegas Strip.

    On a weekend, especially during the busiest travel seasons, the price for a room or suite
    is likely to be higher. The suites at Bellagio Hotel & Casino Resort are
    another story entirely.
    Las Vegas developer Irwin Molasky said, “In our lifetime we will never see another building or hotel with such beauty and grace”.
    Casino executive Bobby Baldwin served as the resort’s president.
    More than half of the resort’s revenue was expected to come from
    non-gaming amenities. Other attractions included a conservatory and the $285 million Bellagio Gallery of Fine Art.
    The resort’s main attraction was an 8.5-acre man-made lake,
    featuring a water show known as Fountains of
    Bellagio.

    References:
    https://blackcoin.co/vip-slots-best-slots-for-real-money-play-with-bonuses-2023/

  6. In February 2006, Microsoft announced that it intended to expand its Redmond campus by 1,100,000 square feet (100,000 m2) at
    a cost of $1 billion and said that this would create space for between 7,
    000 and 15,000 new employees over the following three years.

    The more viewers engage (for example, via live chat messages, Super Chat,
    Super Stickers, or gifts) the higher they may rank on the leaderboard.
    As you engage in the live stream, keep an eye out for the
    crown icon at the top of the live chat. The top 3 engaged viewers even get a special badge next to their
    name in the live chat! The first major expansion of the campus came in 1992, bringing the
    total amount of office space to 1.7 million square feet (160,000 m2) on 260 acres (110 ha) of land.

    Since Microsoft established its headquarters
    in Redmond, Washington, in 1986, the company’s campus has grown from four buildings to more than 100.
    Architectural portals connect the campus to the garage below,
    allowing employees and visitors quick access and creating a
    pedestrian focus on campus. Microsoft’s East Campus features buildings of 4-5 stories, located around a central plaza that serves
    as the heart of campus. The leaderboard is visible during
    the live stream while it is active.

    References:
    https://blackcoin.co/are-online-casino-vip-programs-worth-it/

コメントを残す

メールアドレスが公開されることはありません。