記事一覧:2007年02月19日

「ハス合成画像」

なんかGoogleイメージ検索で「蓮画像」を検索すると、まっさきに蓮を人間に合成した画像がでてくるわけですが。


確かに気持ち悪いんだけど、個人的には大して精神ダメージは受けなかったわけですよ。まぁ理由はアトピー性皮膚炎で全身がひどいことになっている写真を幼少のころ皮膚科で見せられてたから(汗)



こっちは実際にそうなる可能性があるわけだから恐ろしさもひとしおですよ。



ということで、蓮コラを見るならアトピー画像を見ろ、と。ネットにあるかどうかは知らんけど。

あと、グロ画像掲示板を見たら糞画像(駄目画像、という意味じゃなくて本当に便器+糞の画像ね)ばかりで吹いた(笑)。



でも、どっちも耐性ない人は駄目なんだろうな。恐ろしい時代になったもんだー(棒読み)



#ちなみに別にそういう趣味があるわけではなく、 ネットで探し物をしていたらたどり着いただけ 、と強調しておく。


OpenOffice.orgで選択した文字列orセルをハイパーリンク化

OpenOffice.orgで選択したURL文字列orURL文字列が入った表計算セルを、ハイパーリンク化するマクロを個人的にメモ。
元ネタはこちら「 小泉守義のPHPソースコードウォッチ

Sub AddLink

    dim documentFrame as Object
    dim documentView as Object
    dim dispatcher as Object
 
    documentView = ThisComponent.CurrentController
    documentFrame  = documentView.Frame
    dispatcher = createUnoService(“com.sun.star.frame.DispatchHelper”)
 
    dim setHyperLinkArgs(1) as new com.sun.star.beans.PropertyValue
 
    dim cell as Object
    dim cellRange as Object
    dim cellRangeAddr as Object
 
    cellRange = documentView.Selection
    cellRangeAddr = cellRange.getRangeAddress()
 
    for i = cellRangeAddr.StartColumn To cellRangeAddr.EndColumn
        for j = cellRangeAddr.StartRow To cellRangeAddr.EndRow
            cell = cellRange.getCellByPosition(i – cellRangeAddr.StartColumn, _
                    j – cellRangeAddr.StartRow)
 
            setHyperLinkArgs(0).Name = “Hyperlink.Text”
            setHyperLinkArgs(0).Value = cell.Formula
            setHyperLinkArgs(1).Name = “Hyperlink.URL”
            setHyperLinkArgs(1).Value = cell.Formula
            documentView.Select cell
            cell.Formula = “”
            dispatcher.executeDispatch(documentFrame, “.uno:SetHyperlink”, “”, 0, _
                    setHyperLinkArgs())
        next
    next
End Sub